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ABSTRACT 


This document describes a computer program (WINDEF) which determines 
the deviations of light rays passing through deformed windows. Elliptical, 
rectangular, and trapezoidal window planforms can be analyzed. Rays may 

i 

enter at any inclination at'.the points of a specified grid on the undeformed 
window surface. 

Window panes are assumed to be originally flat and of uniform thickness. 

Ray deviations are computed for windows with elliptical, rectangular, and 
trapezoidal planforms due to given uniform pressures. Deformations for 
elliptical and rectangular planforms are calculated in the program. Deformations 
for trapezoidal planforms must be input from punched cards. Deformations 
for either clamped or simply supported edgecconditions may be considered. 

Ray deviations can be developed for windows having one or two panes with 
any given spacing between panes. Angular and translational deviations are 
reported for each ray- In addition, mean and root mean square deviations 
of collinear sets of light rays are listed. 
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Section 1 


INTRODUCTION 

A light ray entering a window system xs refracted so that the exiting 
ray need not be parallel to the entering ray. Thus, corrections must be 
made to optical measurements performed through the system. The deviations 
of a set of particular light rays can provide the basis for corrections. 
These deviations define the difference between the direction of each 
entering ray and its exiting ray and the changes of coordinates between 
the point of entry and exit. 

The deviations are determined by tracing the path of the ray through 
the window system. The tracing involves considering ray refractions at 
the window pane surfaces and the geometrical relationships. Thus, knowing 
the location and orientation of the entering ray, tracing uses knowledge 
of pane cross section shape, thickness, and spacing and the indices of 
refraction of each surface to determine the location and orientation of the 
-exiting ray. 

This report describes a computer program which will calculate the 
shape of thin, originally flat panels of elliptical or rectangular planform, 
when deformed by uniform pressure, and which will develop ray deviation 
data for elliptical, rectangular, or trapezoidal planformsv 

The technical basis for the calculations is defined. All data needed 
to prepare input and implement code usage are provided including program 
details to assist the programmer in diagnosing difficulties and modifying 
the code. 
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Section 2 


EROGRAM DESCRIPTION 

WINDEF is a digital computer program that directs calculation of 
deformations of window panes of elliptical or rectangular planform. It 
calculates deviations of light rays passed through deformed elliptical, 
rectangular or trapezoidal window panes. 

The parameters that may be varied are: planform dimensions, pane 
thickness, number of panes (lor 2), spacing between panes, pressure load, 
dimension scaling, ray plane angles, ray inclination angles, and ray location 
on the window. The spacing, pressure, scaling, plane angles, and inclination 
angles are each limited to eight values per problem. 

Small deflection deformations for the elliptical and rectangular planforms 
are calculated by exact solutions employing thin plate theory. Approximate 
solutions are used to calculate large deflections and shear deformations of 
rectangular plates. Deformations for trapezoidal shapes are found using the 
Structural Analysis and Matrix Interpretive System (SAMIS) which employs the 
finite element approach for obtaining solutions . Trapezoidal deformations 
are read in on punched cards. 

The ray trace portion of the program* calculates the geometrical changes 
of rays passing through the window(s). Both coordinate and angular de- 
viations are calculated and presented. In addition, mean and root mean 

square deviations of collinear sets of light rays are listed. The subroutines 

( 1 )* 

used to perform the ray tracing were provided by Ames Research Center. 


*Numbers in brackets correspond to references listed at the end of the report. 
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DEFORMATION EQUATIONS 

This section describes the equations used to calculate deformations 
of elliptical and rectangular plates. Deflections and slopes (about the 
x and y axes) are calculated. Equations are developed for elliptical 
plates for both simply supported and clamped edges. The circle with 
simply supported edges xs included as a special case since a simple closed- 
form solution exists. 

Thehequations for the small deformations of a (clamped) ellipse are 
taken from Timoshenko ) and are expressed in rectangular coordinates. 

The equations for the small deformations of a simply supported ellipse 
are taken from B. G. Galerkin and are expressed in elliptic coordin- 
ates. The coordinates for the points at which deformations are calculated 
are rectangular i^TRese are converted to elliptical coordinates to solve 

for the deformations. In the conversion. process a Newton -Rhapson method 

(' 4 _) 

of succesive approximations was used to determine the relationships 

between the two sets of coordinates. When the simply supported ellipse 

degenerates to a circle, another equation in rectangular coordinates 
(j2) 

from Timoshenko ' ‘ is used. This alleviates the necessity of iterating 
to find the elliptical coordinates which is required when using Galerkin 1 s 
elliptic equations. 

The equations for both simply supported and clamped edges for the 
small deformations of rectangular plates are taken from Timoshenko and 
Evans/' \ The solutibns'are given by infinite series 'which are truncated after 

f _ 

16 terms. This truncation will insure the one second of arc accuracy 

(. 6 ) 

required. The .large deflection of rectangular plates is solved by 
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combining small plate deflection theory and membrane theory and requring 

that the deformations by the two methods be equal at the center of the 

(Jy\ 

plate when subjected to the same loads . The small deflections of the 
plate are predicted as described above. The membrane deflections are 
predicted exactly by generalizing Timoshenko's results for a square 
membrane. By combining the equations for the loads to produce the center 
deflection, w q , by small deflection theory and the "center deflection, w q , pro- 
duced by membrane analysis, a cubic equation in w q results which can be 
solved to find the large deflection solution. The large deflection 
solution for points between the center of tlie plate and the edge is 
obtained by averaging the deflection for the small deflection plate 
theory and the membrane theory at each point. 

Shear deformations are calculated using a modification of an 

(.70 

equation for the deflections of rectangular sandwich plates . The 
shear deflection is obtained by multiplying the small deflection theory 
result by a constant of the form $ = 1+ where is a function 

of the lengths of the sides and thickness of the plate. 

Details of the development of the above described equations are 
given in Appendix A. Other miscellaneous equations used in the program 
are developed and described in Appendix B. These are the trapezoidal 
boundary, mean and standard deviations, and maximum -minimum slope' equations . 

INTERPOLATION PROCEDURE 

Deformations generated by the above equations or those read in from 
punched cards are defined only for certain points on a regular grid network. 
Since the light rays intersecting the window surfaces will generally not fall 
on points of this regular grid, a method of interpolating between the 
deformations at the grid points is necessary. 
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The procedure used for the interpolation is to fit, in a least squares 


sense, a reduced eight-order polynomial to the deformations of a 6 x 6 grid 

^(' 9 ) 

network (36 points). The form of this polynomial is: 


4 4 


4 3 


3 2 


3 4 


3 3 


w = x y + A 2 x y + x y +A^x y + A 5 x y +A^x y 


3 2 


2 4 


2 3 2/2 2 

A n x y + A 12 x y 


+ A ? x y + Ag x y + A g x y + A-^x y 
4 3 2 

+ A l3 x y + A 14 x y + A 15 x y + A 16 x y +- A 17 y + A- 
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(I) 


2 4 3 * 2 >v 

+ A lg y + a 20 y + a 21 x + a 22 x + a 23 x’ + a 24 x + a 25 

Where the A^ are constants and x and y are coordinates of a rectangular 
cartesian system. This function xs fitted to each of the 36 points of a 
six by six square array of the grid. The equations expressing deformation 
can be written in matrix form as: 

H = MM (2) 

Where £w| and are column vectors and M is a 36 x 25 rectangular matrix. 

To define the deformations at any point, the A_. components must be determined. 
This is accomplished by first premultiplying the above equation by the transpose 
of [bJ to obtain: 

[b] t W =[b] t [b]{a] . 

Then, the A^ can be found by solving this set of linear homogeneous 


(4) 


equations. The solution can be formally expressed by: 

M - < C»3 t [b] y {«} . 

Knowing ^A^ , Equation (1) can be used to evaluate deformations at any 
point on the window. 

Since the eight-order polynomial used is not complete, it is sensitive 
to where the origin of coordinates is chosen. To minimize this sensitivity, 
the origin of coordinates should be chosen at the point of maximum deflection 
of the window. For the elliptical and rectangular planforms the computer 
program automatically selects the proper region. For the trapezoidal 
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planforms, which are read in on punched cards, the origin of coordinates 
must be specified by the analyst. In addition, the analyst must specify the 
center of interpolation (see Figure 1) for the trapezoidal planforms. For 
the elliptical and rectangular planforms, the center of interpolation is 
automatically chosen by the computer program. 

To obtain adequate accuracy in deformation predictions over the window, 
it was necessary to use four regions of interpolation as shown in Figure 1. 

Each region consists of a 6 x 6 grid network as described above. Independent 

fits are made in each region to determine the interpolation coefficients, A.. 

A »'t*. 

The deformations at any point on the window ar.e then determined by considering 
within which of the four regions the point lies and using the interpolation 
coefficients for that region along with Equation (1) to determine the 
deformations of the point. To avoid discontinuities r in theqfit','. the inter- 
polation coefficients are linearly interpolated among fits when the point of 
interest lies between the centers of the four interpolation regions. For 
example, in Figure 1, if point P is the point of interest the deformations 
for P would be predicted using the interpolation coefficients for regions 1 and 
2 in proportion to the distance of P from the centers of the regions. 

The accuracy of the interpolation is limited by the accuracy of the 
equation solution process which evaluates the |a . This difficulty is 
eliminated by solving Equation (3) with double precision arithmetic. This 
results in obtaining at least seven digit accuracy in the equation solving 
process . 

Performing the curve fitting with all points in each of four regions 
and using double precision arithmetic results in a maximum error in the 
interpolation of less than one second of arc. 
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RAY TRACE PROCESS 


"Ray tracing" consists of determining the paths of an observed ray as 

seen from the interior of the spacecraft. Since the mathematical description 

of the optical phenomenon is reversible, the ray can be considered as 

emerging from the observer's eye, extending to the window surface, refracting 

through the window, and then continuing on to the object under observation. 

* 

This path is shown schematically u'ny Figure 2. 

The process by which the ray is traced is to first assume the direction 
of a ray from the eye of the observer toward the window. The point of inter- 
section of the ray with the : deformed” ' .window surface is determined by /successive 
improvement of estimates. (This process is used because the deformed surface 
is defined by tabular data rather than by formulas). At the intersection 
point the normal to the surface is determined. The refraction of the ray in 
the medium is determined from the optical incidence rule using the measured 
value of the index of refraction. In passing through air, the index of 
refraction is calculated as a function of the air pressure. 

The ray is traced through each medium and its refraction calculated at 
each interface. The position and orientation of the exiting ray is then 
compared with the position and orientation of the assumed ray at the same 
distance, measured normal to the undeformed window (reference) surface, if 
the window system did not exist. (See Figure 2.) The differences in position 
and angle define the deviation of the light ray being refracted through the 
set of windows and are a measure of the optical performance of the window 
system. 
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Exiting ray 


Angular deviation 


Position deviation 



Deformed window 


Reference surface 


Assumed ray 


Figure 2. Light Ray Deviations 
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The equations necessary to determine the path of the refracted light 
ray are functions of the geometry of the systems and the indices of 
refraction of the components of the system. Details of these equations 
are given by White and Gadeberg < ' 8, ^' ) ' 

SUBROUTINE DESCRIPTIONS 

Table 1 gives descriptions of the subroutines that make up the total 
program. Also included is the function of each subroutine, the method of 
solution where pertinent, input and output, and calling statements. All 
input and output is with the common block in the program unless specified 
or indicated in the calling statement as otherwise. 

Included in Table 2 is a list of constants and variables in the 
common array and the subroutines of the program in which they appear. 

The subroutines are referred to by the code values that appear in parenthesis 
after each subroutine in Table 1, 

Table 3 gives a listing of the correspondence between the ray trace 
results and their variable names and storage locations as used on the ray 
trace subroutine of the program. 

Table 4 provides information concerning the sign convention as used in 
the development of the equations for the computer code. 

FLOW CHARTS 

This section contains two flow charts. Figure 3 shows the interrelation 
between the subroutines of the program. Figure 4 shows the sequence in which 
subroutines are selected by the driver. 

Listings of the routines of the program are given in Appendix D. 


10 



Table ,1 ' 


Subroutine Descriptions 


WINDEF (DO) 

Apollo window deformation and line-of- sight driver 
Controls solution of problems 

Input: Physical parameters, program control switches, via cards 

Output: Error comments 

ELIPSE (DD 

Elliptical plate deformation generator 
Solutions by small deflection theory (closed form) 

Input: Plate dimensions, physical properties 

Output: Plate deflection and slopes about x and y axes 

Calling statement: CALL EL IPSE 

ELIPIT (D2) 

Elliptic coordinate generator 

Elliptic coordinates are generated by the Newton- Rhapson method of 
successive approximations 
Calling statement: 

CALL ELIPIT (C, X, Y, XI, ET, FXE , FEP, GXP , GEP , DET) 


C 

“ 

focal distance 

X 

= 

x coordinate rectangular coordinates 

Y 


y coordinate rectangular coordinates 

XI 

“ 

elliptic elliptical coordinate 

ET 


hyperbolic elliptical coordinate 

FXP 

= 

-C sinh (XI) cos (ET) 

FEP 

= 

C cosh (XI) sin (ET) 

GXP 

= 

-C cosh (XI) sin (ET) 

GEP 

= 

-C sinh (XI) cos (ET) 

DET 


determinant (FXP GEP - FEE GXP) 

RECTNG (D3) 




Rectangular plate deformation generator 

Solution by small deflection theory (infinite series of 16/terms) 
Input. Plate dimensions, physical properties 
Output: Plate deflection and slopes about x and y axes 

Calling statement: CALL RECTNG 

SEQS (D4) 

Matrix inversion and linear equation solution 
-Calling statement* 

CALL SEQS (A, B, C, N, M) 

A = matrix of moments 
B = matrix of right hand side 
C = solution matrix - returned 
N = size of square matrix A 
M = number of right hand sides 



Table 1 (cont'd) 


TRPZOD (D5 ) 

Reads in trapezoidal data from cards generated by SAMIS 
Eliminates unnecessary data. Re- formats codes for ray trace routines 
Input: Load number desired; number of cards, scale factor via cards 

Output* Deflections and slopes about x and y axes 
Calling statement: CALL TRPZOD 

LRGDEF (D6) 

Large deflection generator for rectangles 
Solved by energy method described in Timoshenko 

Input- Plate dimensions, physical properties, deflections and slopes 
by small deflection theory (from RECTNG) 

Output: Large deflections and slopes about x and y axes 

Calling statement. CALL LRGDEF 

DEFRES (D7 ) 

Prints plate deformation data on system output tape or tape 7 
Input: Problem parameters, physical properties, deflections and slopi 

Output: Same as Input 

Calling statement: 

CALL DEFRES (IDT, N0PRT) 

IDT = deformation data retrieval sequence number 
N0PRT = output tape selection switch 

RAYTRA (D8) 

Driver for ray trace procedure 

Output: Entering and exiting ray coordinates and angles and vector 

difference between entering and exiting rays 
Calling statement: 

CALL RAYTRA (XS, YS, ZS, ALPHAI, DELTAN) 

XS = x coordinate of entering ray 

YS - y coordinate of entering ray 

ZS ==0.0 

ALPHAI = plane angle 
DELTAN = ray angle 

ITERAT (D9) 

Iterates to find location of ray on next surface 
Stops iteration when error is less than 1.0E-6 
Calling statement: 

CALL ITERATE (XP, YP, K, DELTAP, Cl, DELZ, OWX, OWY) 

XP = x coordinate of ray 

YP = y coordinate of ray 

K = index of surface 

DELTAP =1.0 " 

Cl = direction cosines \ 

‘DELZ = deflection of plate at point ray enters, or leaves plate 
OWX = slope about x axis 
OWY = slope about y axis 



Tab le I ( cont 1 d ) 


INCOTB (EO) 

Determines deformation of plate at intersection with ray 
Solution uses an osculating interpolation function 
Calling statement: 

CALL INCOTB (XP, YP, OWF, OWX, OWY, IPG) 

XP = x cobrdinate of ray 

YP = y coordinate of ray 

OWE = deflection of plate at point ray enters or leaves plate 
OWX = slope about x axis 
OWY = slope about y axis 

IPG = switch associated with MAX~MIN routine 
NORMAL (El) 

Calculates normal to plate at ray intersection point 
Calling statement: 

CALL NORMAL (OWX, OWY, K, DELTAP, CN) 

OWX = slope about x axis 
OWY = slope about y axis 
K = index of surface 
DELTAP =1.0 
CN = direction cosines 

REFRI (E2) 

Calculates new direction of ray upon entering new medium 
Calling statement: 

CALL REFRI (Cl, CN, QRI, CR, IS0) 

Cl = direction cosines, entering 
CN = direction cosines, entering 

QRI = ratio of refractive indexes of two mediums at boundary 
CR = direction cosines, leaving 
~~ ISO = number of system output tape 

RESPRT (E3) 

Prints ray trace and mean-rms data on system output tape or tapes 7, 8 & 9 
Input Problem parameters, physical properties, ray trace output data 
Output. Same as input 
Calling statement: 

CALL RESPRT (IRT, NOPRT) 

IRT = retrieval index 

NOPRT = output tape selection switch 

MENRMS (E4) 

Stores data for mean and rms calculations and calculates same 
Input- Vector error between entering and exiting ray for all grid points 
Output: Mean and rms of vector error for all plane angles 

Calling statement: 

CALL MENRMS 
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Table 1 (cont'd) 


MAXMIN (E5 )' 

Calculates maximum and minimum slopes at each grid point 
Calculates slope by means of a small differential 
Input : x and y coordinates of point 

Output: Problem parameters, physical properties, maximum/minimum output 

Calling statement: 

CALL MAXMIN 

RTVLST (E6) 

Prints out the retrieval index list 

Input: Problem parameters, physical properties, retrieval data 

Output : Same as Input 

Calling statement: 

CALL RTVLST (IRT, LIN, IPV) 

IRT = retrieval index 
LIN = line number 

IPV = page number of retrieval index list 
BONDRY (E7 ) 

Tests to see if the location of a ray is outside the plan form boundary 
Calling statement: 

CALL BONDRY (XP, YP, IBY) 

XP " x coordinate of ray 

YP = y coordinate of ray 

IBY = bypass switch 

PACWRD (E8) 

Index word packing- unpacking routine 

Packs a two word integer into one word or vice versa 

Calling statement. 

CALL PACWRD (Kl, K2, K3) 

Packing : 

Kl = integer one entering; resulting integer leaving 
K2 — integer two entering 
K3 ~ 1, pack integers; = 2 unpack word 
Unpacking: 

Kl = packed integer entering; integer one leaving 
K2 = integer two leaving 
K3 = same as above 


PAGE (E9) 

Prints page number at top of each page 
Calling statement: 

CALL PAGE (IPN, LINE, ISN, INX) 

IPN = page number 
LINE = line number 
ISN = tape number 
INX = retrieval index 



Table 



cont T d) 


SHRDEF (FO) 

Calculates shear deflection of a rectangular plate 
Calling statement: 

CALL SHRDEF 
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Table 2 


Constants and Variables in Common Array 


Subroutine Designation in Which Used 


AMN 

DO 








E4 




AVH 

DO 








E4 




AVS 

DO 








E4 




CHAP 

DO 





D7 


E3 

E4 

E5 

E6 

E7 

CPRSS 

DO 





D8 







DEL 

DO 






EO 



E5 



DIMA 

DO 

Dl 

D3 


D6 

D7 


E3 

E4 

E5 

E6 

E7 

DIMB 

DO 

Dl 

D3 


D6 

D7 


E3 

E4 

E5 

E6 

E7 

DIMC 

DO 





D7 


E3 

E4 


E6 

E7 

DWX 

DO 

Dl 

D3 

D5 

D6 

D7 

EO 






DWY 

DO 

Dl 

D3 

D5 

D6 

D7 

EO 






FR 

DO 

Dl 

D3 










GNU 

DO 

Dl 











IBC 

DO 

Dl 

D3 



D7 




E5 



ILRG 

DO 





D7 







IPB 

DO 







E3 





PID 

DO 





D7 




E5 



IPR 

DO 







E3 





IREL 

DO 








E4 




IRM 

DO 







E3 





ISCRl 

DO 





D7 







ISCR2 

DO 







E3 





ISEC 

DO 







E3 

E4 




ISI 

DO 



D5 









ISO 

DO 





D7 


E3 


E5 

E6 


JPN 

DO 

Dl 

D3 

D5 

D6 

D7 




E5 




LOOP 

LP5 

LP7 

MIPB 

NGP 

NMP 


SCALi 
SKAL 
SPACi 
SEAD 
STATi 
STD 
THXC 
W N 
X ~~ 
~Y r 
YONG* 


DO 

DO 

DO 

DO 

DO Dl D3 D5 D6 D7 
DO 


D8 


EO 


DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 


D7 D8 


E3 


E6 


E5 


E4 


NPAG 

DO 


E3 

E4 



NPAN 

DO 

D7 D8 

E3 


E5 

E6 

PLNAi 

DO 


E3 




PRESi 

DO 






PRSS 

DO 

D7 D8 EO 

E3 


E5 

E6 

RAYA 

DO 





E6 

RESi 

DO 

D8 

E3 

E4 



Rli 

DO 

D8 





RTV 






E6 





D6 

D7 

D8 

Dl 

D3 

D5 

D6 

D7 

EO 

Dl 

D3 

D5 

D6 

D7 

EO 

Dl 

D3 

D5 

D6' 

D7 

EO 




D6 


■ - 


E3 E5 E6 

E3 E4 
E4 

E3 E5 E6 

E5 

E5 
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Table 3. 



Alternate Names For Printed Ray Trace Itmes 


Name xn Printouts 

Verbal Name 

'Storage Name 
and Location 

Name in RAYTRA 

X 

Incident ray x coordinate 

RES (1-8) 

XS 

Y 

Incident ray y coordinate 

(11-18) 

YS 

Dl 

Ray angle entering 

(21-28) 

DELTAI 

Al 

Plane angle entering 

(31-38) 

ALPHAI 

Pane Z 

Pane deflection 

(41-48) 

ZP 

Pane GX 

Slope about x axis 

(51-58) 

0HX 

Pane GY 

Slope about y axis 

(61-68) 

0WY 

X 0UT 

^Exiting-- ray x coordinate 

(71-78) 

XP 

Y 0UT 

'Exiting'- ray y coordinate 

(81-88) 

YP 

Z 0OT 

Exiting z coordinate 

(91-98) 

ZP 

AZ 

Plante angle out 

(101-108) 

ALPHAR 

DZ 

Ray angle out 

(111-118) 

DELTAR 

(A1-A2) 

Plane angle deviation 

(121-128) 

DELALP 

(D1-D2) 

Ray angle deviation 

(131-138) 

DELDEL 

THETA 

Incident- exiting ^ ray 
deviation 

(141-148) 

DELINC 

I'(AxB) 

i component of cross product 

(151-158) 

CRPI 

J(AxB) 

j component^of cross product 

(161-168) 

CRPJ 

K(AxB) 

k component of cross product 

(171-178) 

CRPK 


- 1-7 " 



Table 


Sign Convention in Subroutines 

Rectangle and Ellipse generate positive deflections in the direction of 
positive pressure (q) . 

The pressure (q) is positive in direction of the positive Z-axis. 

Deflections are always generated for a positive unit pressure (q). 

, 2 

+ pressure 
x 




DWX = Slope in x direction (about y axis) is always negative for positive w. 
DWY = Slope in y direction (about x axis) is always negative for positive w. 

DEFRES changes sign of deflection and both slopes ,fp ^negative pressure 

RAYTRA changes sign of deflection for negative pressures of point under 
consideration 

INCOTB changes sign of deflection and both slopes for negative pressure at 
4 corner points 

INCOTB returns deflection and slopes with correct signs for any quadrant 






BONDRY 


HERAT 


INCOTB 


NORMAL 


REFRCI 


Figure (3. v y Program Flow Between Subroutines 




























DRIVER 



\ 

Figure 4~a\ Driver Flow Chart 
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PRINT MEAN- 
RMS DATA 


LOOP ON RAY ANGLES' 


LOOP ON PRESSURES 
LOOP ON SPACING 
.LOOP ON SCALES 
LOOP ON BOUNDARY COND. 


! 

CONTI 

f 

NUE - 



CONTINUE - 


Figure ..4KV Driver Flow Chart (cont 
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Section 3 


PROGRAM USAGE 

This section presents information to assemble and submit a program 
deck; prepare a data deck, and interpret the output. The program deck is 
composed of system control cards, the computer code, and the data deck. The 
data deck consists of cards containing the information necessary to model 
the particular windows to be analyzed. 

WINDEF is a FORTRAN IV program. It was checked out on the IBM 7094 DCS 
under version 13 of the IBJOB processor. Elliptical and rectangular 
parameters are introduced on punched cards. Trapezoidal parameters and 
deformation data are also read in on punched cards. Deformation output is 
on tape 7 (IS7) and the ray trace results are output on tapes 8 (IS8) and 
9 (IS9). Mean and rms summation data and maximum- minimum slope data is 
output on the system output tape. The data on IS8 is for off-line printing. 
The data on IS9 is in binary format and can be read by the data retrieval 
program. 

The following paragraphs provide a general description of the input 
requirements . 

PROGRAM DECK MAKEUP 

Figure 5 illustrates the order of the cards which make up the program 
deck when all the ,data is to be output on the system output tape (Mode 1). 

The format for the control cards in the above deck is: 

Columns: 1-7 8-80 

$J0B (See Manual) 

$IBJ0B blank 




2-2 


$DATA 


blank 




Figure 5.- Program Deck- Mode 1 



Figure .6 .. , Program Deck- Mode 2 
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Figure 6 illustrates the order of the cards which make up the program 
deck when deformation data is output on tape 7, printed ray trace data is 


output on tape 8 for microfilming , and binary coded ray trace data is stored 
on tape 9 for later retrieval (Mode 2). 

The format for the control cards m the above deck is : 


Columns : 


1-8 

16-80 

$J0B 

(See Manual) 

$ SETUP 07 

ASSIGN 

$ SETUP 08 

DISK, ASSIGN; 

$ SETUP 09 

ASSIGN 

$ IB JOB 

blank 

$DECK 

BCD08 

$DECK 

BIN09 

$DATA 

blank 


The Ames 7094 Operational Manual should be consulted for other items 
required on the $J0B cards. 


DATA DECK MAKEUP 

Figure 7 illustrates the arrangement of the data deck for multiple 
problems. This deck may include as many problems as desired, stacked one 
behind the other. The last problem is followed by two (2) blank or zero 
cards, i.e., column one to eighty are either all blank or filled with zeros. 

Figures 8 and 9 illustrate the arrangement of the data cards within a 
single problem for the Single Ray Trace and Two Ray Trace data decks. The 
detailed format for each of the sets of cards in Figures 8 and 9 is explained 
in Tables 5 and 6. The numbers on the cards shown in the Figures 8 and 9 
correspond to the numbers of the entries in Tables 5 and 6 respectively. 



' ✓ 

Note that the figures show th,.e- deck arrangement'-when- trapezoidal 
t xr&- 

deformation- data are . used-. If elliptical or rectangular planforms are 
being analyzed, cards 13 and 14 are not used. 

Several problems may be run using the same data by making multiple 
entries on cards 4 through 8 and entering the corresponding count on card 
2. This compacted input format makes it very convenient to run combinations 
of problems with a minimum of input. 

In the tables, three types of formats are indicated. They are: 

1) Alphanumeric - Any combination of characters acceptable to 
the computer, (e.g., 26 letters, numerals 0 to 9, and special 
characters) . 

2) Integers - (e.g., 3, 14, -8). 

3) Floating Point Numbers - (e.g., 21.7 +2, 23.5 and 106-1, which 

2 -1 

are read as 21.7 x 10 , 23.5, and 106 x 10 respectively). 

In all instances, the input data must be right justified with respect 
to their assigned column locations on a card. If a number is to be placed 
in columns m-n, the rightmost digit (viewer's right) of the number must be 
in column n. Any consistent set of units for the physical quantities is 
permissible. 
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/ TRAPEZOIDAL 
| -DEFORMATIONS" 
13 /'TRAEEZOID DATA 
I PARAMETERS 
I 2 / REFRACTIVE 
!| INDEXES 

8 /RAY ANGLES 

1 / PLANE ANGLES 

/ — ' 

PRESSURES 


3 f PANE SPACINGS 

4 /geometric SCALE 

1 FACTORS 

^ LIMIT PARAMETERS 

’’geometric 

PARAMETERS 


TITLE CARD 


Figure, 8.': SINGLE RAY TRACE DATA DECK 


+ / TRAPEZOIDAL 

■ "DEFORMATIONS 

/ TRAPEZOID DATA 


12 /REFRACTIVE 

1 INDEXES 

11 / SEXTANT DISTAN3ES _ 

3 j'THETA ANGLES 

?AI ANGLES 


PSI ANGLES 


BETA ANGLES 


PRESSURES 


PANE SPACINGS 
JEOMETRIC SCALE ! 


'LIMIT PARAMETERS 


/GEOMETRIC 
I PARAMETERS 

TITLE CARD 


Figure.* 9 . / TWO RAY TRACE DATA DECK 
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Table 5 


Single Ray Trace Input Data 


1. Title Card 


Columns 

Symbo 1 

Information 

Format 

1-5 

IRT 

Initial retrieval number minus 1 

Integer 

6-80 

WORD ( I ) 

Problem title 

Alphanumeric 

Geometric 

Parameters 



Columns 

Symbo 1 

Information 

Format 

1 

- 

Leave blank 


2-5 

SHAP 

Planform shape 3 

Enter: ELIP for ellipses' 3 

RECT for rectangles^ 
TRAP for trapezoids c 

Alphanumeric 

6 

- 

Leave Blank 


/„7~T0 

BONC 

Boundary condition 
Enter: HING for hinged 

CLMP for clamped 
BOTH if both hinged and 
clamped conditions are 
to be evaluated 

Alphanumeric 

11-20 

AA 

Ellipse: x axis length 

Rectangle’ long side length 
Trapezoid: base length (longest) 

Floating 

21-30 ' 

BB 

Ellipse: y axis length 

Rectangle: .short side length 
Trapezoid: height 

Floating 

v - .31-40 

cc '• 

Trapezoid, base length (shortest) 

Floating 

’41-50 

THIC 

Glass thickness 

Floating 

51-60 

Y0NG 

Young 1 s modulus 

Floating 

61-70 

GNU 

Poisson's ratio 

Floating 

71-80 

DEL 

Coordinate point increment 

Floating 


a See Figure TO. 

b A circle as an ellipse with A=B; a square is a rectnagle with A=B. 
c Trapezoids must be regular trapezoids. 
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Table .5* (cont'd) 


3. Limit Parameters 

Columns Symbo 1 


1-5 

NEAN 

6-10 

NSCL 

11-15 

NSEC 

16-20 

NPRS 

21-25 

NPAG 

26-30 

NRAG 

31 -35 

I MAN 

36-40 

ILGD 

41-45 

IREL 

46-50 

NOERT 


51-60 

CERSS 

61-65 

ISHR 


Information Format 

Number of panes (max. =2) Integer 

Number of scale values (max. =8) " 

Number of pane spacihgyva lues " 

(max. =8) 

Number of pressure differences " 

(max. =8 ) 

Number of plane angles (max. =8) " 

Number of ray angles (max. =8) " 

Set=l to perform maximum/minimum " 

calculations 

Set=l to perform large deflection " 

calculation (rectangles only) 

Set=l if trapezoidal x-axis " 

boundary is an axis of symmetry 

Set=0 to get displacements on tape' 1 " 

7, ray trace data on tapes 8 
and 9 _ . 

Set=l to get all data on system 

output tape, yray ^tr-a'c.e <cla'th on tape 9 

Set=2 to get rms and deformation 
data only 

Cabin pressure for 2 pane cases Floating 

Set=l if rectangular shear Integer 

deformation desired 


4. Geometric Scale Values 


Columns 

Symbo 1 

Information 

1--10 

SCAL(I) 

Scale value 

11-20 




Format 

Floating 

ii 
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Table 5 (cont'd) 


Pane Spacing Values 



Columns 

Symbo 1 

Information 

Format 

1-10 

SPAC(I) 

Spacing between panes of 
double pane windows 

Floating 

, 11-20 
t 



tr 

71-80' 



ii 

Pressure Values 



Columns 

Symbol 

Information 

Format 

1-10 

PRES(I’) 

Absolute (not gage) 

Interstitial pressure 

Floating 

U. 20 



11 

71- 80 



II 

Plane Angl 

ss (see Figure 11) 


Columns 

Symbol 

Information 

Format 

1-10 

PLNA(I) 

Plane angle measured from 
positive x-axis 

Floating 

11-20 



11 

• 

71-80 



• 

11 

Ray Angles 

(see Figure 

11) 


Columns 

Symbol 

Information 

Format 

1-10 

RAYA(I) 

Incidence angle 

Floating 

11-20 



M 

71-80 



H 
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Table 5 (cont'd) 


12. Refractive Indices (There will be 2 (NPAN) + 1 refractive indices) 
Columns Symbol Information Format 

1-10 RI(I) Refractive index Floating 

11-20 " 


41-50 


13. Trapezoid Data Paramters 


Columns 

Symbol 

Information 

Format 

1-5 

JLD 3 

Load no. of data to be 

accepted by program. JLD 
is the column code value 
output by SAMIS to identify 
different loadings 

Integer 

6-10 

NCRD b 

No. of cards of data to be 
read in 

11 

11-20 

SCLFAC 

Scaling factor 

Floating 

21-30 

XI 

X- coordinate of origin of 
coordinates 

Floating 

31-40 

Y1 

Y- coordinate of origin of 
coordinates 

Floating 

41-45 

NTX 

No. of intervals along x-axis 
to center of interpolation 

Integer 

46-50 

NTY 

No. of intervals along y-axis 
to center of interpolation 

Integer 

14. Trapezoidal 

Data 



Columns 

Symbol 

Information 

Format 

1-6 

LOC(J) 

Row/ col. code (J =3) 

max. 

Integer 

7-12 

ILD(J) 

Load number (J =3) 

max. 

(1 


3 If JLD is negative* data is not to be scaled for pressure, 
b . 

If NCRD is negative, data for one pane is input and is used for both 
panes . 
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Table 5 (cont'd) 


Trapezoidal 

Data (continued) 


Columns 

Symbo 1 

Information 

Format 

13-24 

ELM(J) 

Deformation value (J =3). 

max. 

Octal- 

25-48 


Same format as 1-24 


49-72 


Same format as 1-24 



The rightmost digit it LOC(J) indicates which deformation is stored at 
ELM(J). The digit-deformation correspondences are: 

3 = deflection 

4 = slope about x-axis 

5 = slope about y-axis 
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X 


Figure till Single Ray Trace Angles 
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Table 6 


Two Ray Trace Input Data 


Title Card 




Columns 

Symbo 1 

Information 

Format 

1-5 

IRT 

Initial* retrieval number minus 1 

Integer 

6-80 

W0RD(I) 

Problem /title 

Alphanumeric 

Geometric 

Parameters 



Columns 

Symbol 

Information 

Format 

1 

- 

Leave .blank' 


2-5 

SHAP 

Planform shape '__J ^ 

Enter. ELIP for ellipses *1^ 
RECT for rectangles * 
TRAP for trapezoids ' . 

Alphanumeric 

6 

- 

Leave ( blank > 


7-10 

BONC 

Boundary condition 
Enter: HING for hinged 

CLMP for clamped 
BOTH if both hinged and 
clamped conditions are 
to be evaluated 

Alphanumeric 

11-20 

AA 

Ellipse: x axis length 

Rectangle: long side length 

Trapezoid: base length (longest) 

Floating 

21-30 

BB 

Ellipse: y axis length 

Rectangle, short side length 
Trapezoid : (height ^ 

Floating 

31-40 

CC 

Trapezoid: base length (shortest) 

Floating 

41-50 

THIC 

Glass thickness 

Floating 

51-60 

YONG 

Young 1 s modulus 

Floating 

61-70 

GNU 

Poisson's ratio 

Floating 

71-80 

DEL 

Coordinate point increment 

Floating 


a See Figure f 

b A circle is an ellipse with A=B; a square is a rectangle with A=B. 
c Trapezoids must be regular trapezoids. 
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Table <6* (cont'd) 


3. Limit Parameters 


CoLumns 

Symbol 

Information 

Format 

1-5 

NPAN 

Number of panes (max. =2) 

Integer 

6-10 

NSCL 

Number of scale values (max. =8) 

11 

11-15 

NSPC 

Number of pane spacing values 
(max. =8) 

ft 

16-20 

NPRS 

Number of pressure differences 
(max. =8) 

rr 

21-30 

N0PRT 

See Table 1 for N0PRT flags 

1! 

31-35 

I MAN 

Set=l to perform maximum/minimum 
calculations 

IT 

36-40 

ILGD 

Set=l to perform large deflection 
calculations (rectangles only) 

11 

. 41-45 

IREL 

Set=l if trapezoidal x-axis _ 

boundary is an axis of symmetry 

II 

46-50 

NBET 

Number of Beta angles (max. =8) 

IT 

51-55 

NPSI 

Number of PSI angles (max. =8) 

It 

56- 60 

NPAI 

Number of PAI angles (max. =8) 

11 

61-65 

NT HE 

Number of THETA angles (max. =8) 

i? 

66-70 

NSEX 

Number of -sextant distances 
(max. =8) 

ii 

71-80 

CPRSS 

Cabin pressure for 2 panes cases 

Floating 

Geometric 

Scale Values 



Columns 

Symbol 

Information 

Format 

1-10 

SCAL(I) 

Scale value 

Floating 

11-20 




• 

• 

71-81 





_ __ _ 



_ 
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Table 6 (cont'd) 


Pane Spacing 

Va lues 



Columns 

Symbol 

Information 

Format 

1-10 

SPAC(I) 

Spacing between panes 
of double pane windows 

Floating 

H-20 



.. 


71-80 

Pressure Values 


Columns 

Symbol 

Information 

Format 

1-10 

PRES(I) 

Absolute (not gage) 

Floating 



interstitial pressure 


11-20 



H 


71-80 

Beta Angles (see Figure 12) 


Columns 

Symbol 

Information 

Format 

1-10 

BETA(I) 

Plane angle measured 
from positive x-axis 

Floating 

11-20 



ft 

• 

71-80 



• 

• 

II 

PSI Angle 

( see Figure 

12) 


Columns 

Symbo 1 

Information 

Format 

1-10 - 

ESIA(l) 

2-plane inclination angle 

Floating 


Table 6 Ccont'd) 


9. PAI Angle (see Figure 12) 

Columns Symbol Information 

1-10 PAIA(I) Primary line-of- sight angle 

11-20 

71-80 

10. Theata Angle (see Figure 12) 


Columns 

Symbol 

Information 

1-10 

THEA(I) 

Sextant angle 



(must be positive) 

11-20 




71-80 


Sextant 

Distances 


Columns 

Symbol 

Information 

1-10 

ZSEXT(I) 

Distance of sextant 
from window 

11-20 




71-80 

12. Refractive Indices (There will be 2(NPAN) +1 refractive 
Columns Symbol Information 

1-10 R1(I) Refractive index 

11-20 

71-80 


Format 

Floating 

ii 


Format 

Floating 

ii 

n 

Format 

Floating 


n 

indices) 

Format 

Floating 

IT 

II 
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Table 6 (cont'd) 


13 . Trapezoid Data Parameters 


Columns 

Symbol 

Information 

Format 

1-5 

JLD 3 

Load no. of data to be 

accepted by program. JLD 
is the column code value 
output by SAMIS to identify 
different loadings. 

Integer 

6-10 

NCRD b 

No. of cards of data to be 
read in 

M 

11-20 

SCLFAC 

Scaling factor 

Floating 

21-30 

XI 

X- coordinate of origin of 
coordinates 

Floating 

31-40 

Y1 

Y-coordinate of origin of 
coordinates 

Floating 

41-45 

NTX 

No. of intervals along x-axis 
to center of interpolation 

Integer 

46-50 

NTY 

No. of intervals along y-axis 
to center of interpolation 

Integer 

Trapezoidal 

Data 



Columns 

Symbol 

Information 

Format 

1-6 

L0C(J) 

Row/col. code (J =3) 

max. 

Integer 

7-12 

ILD(J) 

Load number (J =3) 

max. 

1! 

13-24 

ELM(J) 

Deformation value (J =3) 

max. 

Octal 

25-48 


Same format as 1-24 


49-72 


Same format as 1-24 



3 * 

If JLD is negative, data is not to be scaled for pressure. 

If NCRD is negative, data for one pane is input and is used for both 
panes . 
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Table -6 (cont'd) 


The rightmost digit in LOC(J) indicates which deformation is stored at 
ELM(J). The digit-deformation correspondences are: 

3 = deflection 

4 = slope about x-axis 

5 = slope about y-axis 
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UUXfUX T UK MAT 


The output for the window deformation data is shown in Figure 13. 

This output is put on tape 7 (IS7) in a form for printing. The retrieval 
number is assigned by the analyst to enable retrieval of the data from 
tape 9. The first line of printout after the title describes the physical 
parameters of the window being analyzed. The first word denotes the planform 
shape. A, B, and C are the dimensions of the window. SCALE is the factor 
by which the dimensions have been multiplied (to study windows of the same 
shape with different dimensions). The thickness, number of panes, and pane 
spacing are given. PRESSURE is the interstitial pressure if there are two 
panes or' the cabin pressure if there is only one pane. The edge fixity is 
given by the last word on the line. The rest of the output consists of a 
tabulation of the point coordinates (in inches) and the associated deflections 

y 

for the inner (pane 1) and outer (pane 2) panes. If there is only one 
pane the deflections of pane 2 are given as zeroes. The deflections are 
measured in inches. 

The output for the ray trace (line of sight) data, is shown in Figure 14. 
This output is put on tape 8 (IS8) in a form for printing and on tape 9 (IS9) 
in binary format. If the line of sight data is to be retrieved, tape IS9 
should be mounted and called by the data retrieval program. The details of 
the data retrieval program are given in Appendix C. The first line following 
the title gives the physical parameters of the window being analyzed. The 
next line gives the coordinates of the point at which the incidence angle 
strikes the reference surface (see Figure 2). The angle D1 is the incidence 
angle measured in degrees. The remainder of the output is a tabulation of 
the ray trace data for each plane angle (Al) requested by the analyst. 


42 



ZZTJ 


f 


RETRIEVAL NUMBER = 1 
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VI I N D 0 W 

D E F 0 R. 

M A T I 

ON DATA 


RECTANGLE A= 

9.30 B= 9.30 

SCALE=0,75 

THICKNE SS= 0,30 

PAN£S=2 SPACING^ 1.0 PRESSURE* 5 7.5 HINGED 

COORDINATES 


DEFORMATIONS 

COORDINATES 


DEFORMATIONS 

X 

Y 

DEFL. PANE 1 

DEFL. PANE 2 

X 

Y 

DEFL. PANE 1 

OEFL. PANE 2 

0.00 

0.00 

-0.288272E-02 

0. 940018E— 02 

0,50 

0.00 

-0.284498E-02 

0. 9277116-02 

1.00 

0.00 

-0. 273222E- 02 

0. 89094 1 E-02 

1 .50 

0.00 

-0.2 54587E-02 

0.830175E-02 

mss* 

0.00 

-0.228851E-02 

0. 746254E— 02 

2.50 

0.00 

-0.1 96417E-02 

0.640489E— 02 

3.00 

0.00 

-0. 157870E-02 

0.514792E-02 

3, 50 


-0.11403 6E-02 

0.371857E-02 

4.00 


-0. 660475E- 03 

0. 215372E-02 

4.50 


-0.1 54 19 7E-03 

0.5023176-03 

0.00 

0 .50 

-0.284498E-G2 

0. 92771 IE-02 

0.50 

lul «. 

— 0.280776E-02 

0. 9155726-02 

1.00 

0.50 

-0. 269653E— 02 

0,879303 E-02 

1.50 

0.50 

-0.251270 E-02 

0.8193606-02 

2 .00 

0.50 

-0. 225881E-02 

0. 736570E-02 

2.50 

0.50 

-0.1 93B80 E-02 

0.632216E-G2 

3.00 

0.50 

-0. 155841E-02 

0. 508179E-02 

3.50 

0.50 

-0.1 12579E-02 

0. 3671066-02 

4.00 

0.50 

-0.652079E-Q3 

0. 212634E-02 

4.50 

0.50 

-0. 152242E-03 

0.496443E-03 

; 0.00 

1 .00 

— 0.273222E— 02 

0. 890941E-O2 

0.50 

1. 00 

-0. 269653E- 02 

0. B79303E-02 

1.00 

1.00 

-0.258988E-02 

0.844525E-02 

1.50 

1.00 

-0.241359E-02 

0. 7870396-02 


1.00 

— 0 . 217004E-02 

0.707621E-02 

2.50 

1.00 

-0. 186294E-02 

0.607482E-02 


1.00 

-0. 149776E- 02 

0. 488401 E-02 

3.50 

1.00 

-0.1 08222E-Q2 

0.352896E-02 



-0. 626 96 16-03 

0. 204444E-02 

4.50 

1.00 

-0.146395E-03 

0.477375E-03 

0.00 

1.50 

-0.254587E-02 

0. 830 175E-02 



-0. 2 51270E-02 

0. 81 9360E-02 

J..00 

1,50 

-0. 241359c- 02 

0. 787039E-C2 



-0.224970E— 02 

0.7335996-02 

2.00 

1.50 

-0. 202320E-02 

0.659738E-02 

nmn 


-0. 173743E-02 

0. 566553E-02 

3.00 

1. 50 

-0. 139736E- 02 

0. 455660E-02 

3.50 

1.50 

-0 . 101005E-02 

0.329364E-02 

4.00 

1.50 

-0. 585351E-03 

0. 190875E-02 

4.50 

1.50 

-0.136707E-03 

0.445784E— 03 

0.00 

2.00 

-0. 228851E-02 

0. 746254E— 02 

0.50 

2.00 

-0. 22588 IE-02 

0 . 736570E-02 

1.00 

2.00 

-0. 217 004E- 02 

0, 707621E-02 

1.50 

2.00 

— 0.202320E-02 

0 ,6597386-02 

2.00 

2.00 

-0 . 18 20 13E-02 

0. 593522E— 02 

2,50 

2.00 

-0.156374E-02 

0. 50991 6E-02 

3.00 

2.00 

-0. 125832E- 02 

0, 41O321E-02 

3.50 

2.00 

-0.910050E-03 

0.296755E-02 

P||Wl| 


-0. 527 665E-03 


kbks m 


-0. 123273E-03 

0. 401977E— 03 1 



-0. 196417E-02 




-0.193880E-02 

0 . 63221 6E-02 \ 


■fill 

-0. 186294E-02 




-0. 173743E-02 

0 . 566553 E— 02 \ 

2.00 

2.50 

-0. 156374E-02 

0. 5099166-02 

2.50 

2.50 

-0.134423E-02 

0. 43 833 7E- 02 \ 

3 .00 

2.50 

-0. 108242E-02 

0. 352963E-02 

3. 50 

2.50 

-0.7 8342 0E— 03 

0.255463E-02 \ 

4.00 

2.50 

-0.454562E-03 

0. 148227E-02 

4.50 

2.50 

-0.106242E-03 

0 » 346441 E-03 ‘ 

0.00 

3.00 

-0. 157870 E-02 

0. 51479 2E-02 

0.50 

3.00 

-0. 155841E-02 

0.5081786-02 

1.00 

3 .00 

-0. 149776E-02 

0. 48B401E-02 

1. 50 

3.00 

-0. 139736E-02 

0.4556606-02 

2.00 

3 . 00 

-0. 125832E-02 

0. 410321E-02 

2.50 

3.00 

-0. 108242E-02 

0.352963E-02 
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Figure 13. Output - Window Deformation Data 
t 


FOLDOUT FRAM£ \ 


FOLDOUT FRAME £ 







RETRIEVAL 

N'U P 6 E R = 1 







Y . 




RAY 

TRACE 

DATA 



J 

ELLI PSE 

A=17 . 20 B=ll 

.40 

5 CAL E = 1. CC 

THICKNESS= 

0.30 PANES 

=2 SPACING 

=0.5 PR ES5UR E= 5.0 HINGED 





X = 0.00 

Y = O.CO 

D1 = 45. 

00 



A1 

DEG. 

O.OOOQCO 

45 oOOOCOO 

90. COCO GO 

135. 0 CO CO 0 

180.000000 

225,000000 

270.C00CC0 

315.000000 

XOUT 

IN. 

0.859547 

0 .607689 

Q.CCCOOO 

-0.607689 

-0.859547 

-0.607689 

-O.COOOOO 

0.607689 

YOUT 

ZOUT 

A2CUT 

IN. 

IN. 

OEG. 

-0.000000 

1.126556 

O.OCOOCO 

0.607753 

1.126410 

44.996014 

0.859348 

1.126224 

89.595999 

0.6C7753 
1.126410 
125.0 C3983 

C, CQCOOO 
1.126596 
179.999996 

-0,607753 

1.126410 

224,995998 

-0.859348 

1.126224 

269.999581 

-0.607753 

1.126410 

315.003967 

D20UT 

OEG . 

44.997862 

44.993917 
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Figure 14, Output - Ray Trace Data 
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When maximum-minimum slopes are required, the deflection and maximum 
and minimum slopes are printed on the system output tape. The output for 
this data is shown in Figure 15. The first line following the title gives 
the physical parameters of the window being analyzed. The remainder of the 
output consists of a tabulation of the coordinates of the point under 
investigation along with the deflections at that point and the maximum and 
minimum slopes (in radians) and orientation angles. The orientation angles 
are measured relative to the positive x-axis. 

The mean and rms summation data for sets of collinear rays also appear 
on the system output tape. The output for this data is shown in Figure 16. 

The first line following the title gives the incidence angle. The rest of 
the output consists of a tabulation of the plane angles and their respective 
mean and rms values. The "no. points" indicates the total number of points 
on the window which were used in the calculation of the mean and rms values. 

A retrieval list also appears on the system output tape. The list contains 
the retrieval index number and the parameters associated with each problem 
for one run on the computer. The output for the retrieval list is shown 
in Figure 17. 

The output for the two ray trace data is shown in Figure 18. This output 
appears on the system output tape. The first line following the title gives 
the physical parameters of the window being analyzed. The next lines give 
the values of other parameters affecting the ray tracing. "ZSEXT" is the 
distance of the sextant from the window reference surface. "BETA" is the plane 
angle, "PSI" is the z-plane inclination angle, "THETA" is the sextant angle. 
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WINDOW DEFORMATION'S - DEFLECTlQNt MAXIMUM AND MINIMUM SLOPE 
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Figure 15. Output - Maximum and Minimum Slopes 
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Figure 18. Output - Two Ray Trace Data^ 
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"PAI" is the primary line of sight angle, and "SAI" is the secondary line of 
sight angle. The remainder of the data consists of a tabulation of the coordinates 
of the entering (XP IN and YP IN) and exiting (XP OUT and YP OUT) primary, 
lines of sight and the entering (XS IN and YS IN) and exiting (XS OUT and 
YS OUT) secondary lines of sight and the error in the sextant angle (ERROR). 

If any of the coordinates fall outside the window plan;form, the error is 
indicated as ”*****". 

ERRORS 

There are three program generated errors. These are: 

1. The boundary condition word used as XXXX which is not acceptable. 

2. The plan form word used was XXXX which is not acceptable. 

3. ERROR. There is not a complete grid from which an interpolation 
can be made. 

The first two comments indicate the input data on the parameter card 
are incorrect. Comment three indicates there are insufficient grid points 
to form a single grid. 
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Section 4 


CONCLUDING REMARKS 

A FORTRAN IV computer program has been described which will generate 

the deformed shape of elliptical and rectangular windows with single or 

double panes under pressure loadings. The ..program also permits tracing of 

light rays (lines of sight) through the deformed windows. The program 

computes the angular deviations of the rays passing through the window. The 

Lv» 

program will also compute the change in uhe angle between two specified light 
rays as they pass through the windows. Approximately 2.5 to 4.0 seconds are 
required to trace a ray through a double pane window. 

Extensive use has been made of the computer program to perform ray 
trace analyses on the Apollo Scientific Side Window and also on generalized 
windows of various sizes and shapes. This use has resulted in validation 
of the program for a wide variety of input and output conditions and for 
extensive run times. 
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Appendix A 

Development of Deformation Equations 

This appendix contains the details of the development of the deformation 

t. or ** In- 
equations for the elliptic, circular, and r-ec-tangular plates with both simply 

supported and clamped edges using small deflection theory. In addition, the 

formulation of the equations for the large deflection and shear deformation 

of rectangular plates are presented. 

(2) 

Timoshenko gives Equation (1) below as the expression for the deflection, 
w q) at the center of a clamped ellipse as a function of the semiaxis dimensions 
"a" and "b" as shown in Figure A-l. Equation (2) gives the delfection, w, 
at any point on the ellipse in terms of w q . Equation 2, when differentiated 
with respect to x and y, yields the slopes about the x and y axes. Equation 
(3) and (4) are the resulting expressions. 
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( 4 ) 


The deflection, w, for any point on a simply supported ellipse is given 
(3) 

by Galerkin in terms of the center deflection w q , and the trigonometric 

and hyperbolic functions of ^ and ^ , where U is a constant and ^ and ^ 

are the elliptical coordinates of the ellipse. Equations (5), (6), (7), (8), 

and (9) give these expressions. The x and y slopes are found by differentiating 

Equation (4a) with respect to x and y the parameters ^ and ^ . These 

differentiations are given in Equations (10} and (11). The resulting 

differentials of Ttf" , ^ ■ and ^ are found by differentiating Equation (5>) and 

finding the solution to the two ar-bitrary functions F = f(x, \ ) = 0 and 

G = g(y, $ -q ) = 0. The resulting expressions ate'g-iven in 1 Equations (12)', 

(■13), (14), and (15). These equations are differentiated with respect to x 

and y (Equations 16 and 17), combined into the matrix equation given as 

Equation (18), and solved' for derivatives of ^ and ^ as Equation (20). For 
given values of x and y the values of ^ and^ are found using a Newton- Rhapson 

(4) 

-method of successive approximations which are in terms of the functions F, 

G, and their derivatives. These expressions are given as Equation (22). 

The value of ^ and ^ are substituted into Equations (4a), (10), and (11) to 
obtain the deflections and slopes. 
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When the ellipse degenerates into a circle another equation given by 
(2) 

Timoshenko is used in which the deflection at any point of the circle is 
given as Equation (23) in terms of the radius and the x and y coordinates of 
the point. Equation (23) is differentiated with respect to x and y to obtain 

the slopesqabout the x and y axes which are given in Equations (240 and (25). 






fco 


or 
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simply supported rectangular plate given by Timoshenko . The derivative of 


Equation (26) with respect to x and y gives the slopes in the x and y directions. 
These appear in Equations (27) and (28). 
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For clamped rectangular plates the deformations resulting from the 
moments applied to the boundaries and given m Equations (29) and (32) are 
added to the simply supported deformations. The resulting Equations (36a) 
give the deflection and slopes for the clamped plate. 
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The first step in developing a solution for large deflections of a 

rectangular plate is to generalize Timoshenko's equations for the deformation 

(2) 

of a square membrane . Into Equation (37), the general equation for the 

strain energy in a membrane, are substituted the differentials of the equations 

for the displacements in a rectangular plate given as Equation (37a). This 

yields Equation (38) which when simplified by letting V = 0.25 gives Equation 

( 2) 

(39). Timoshenko gives two equations resulting from the principle of 
virtual displacements which can be solved for the constant "c" and the deflection 
w q . These are Equations (40) and (41). 


IARG-B PEFl£CT /ON - J?£CT ftN&U LftR fZA T£ 


f//?sr- SOMVffO/f V /// T//£ C/)S£ a ? b 


V 



hi) 


+ 


+ 


+ 


l~ -V 


z 

VI Tti\ 


r/>hf + (^rf + * 
LI vj) vs \r v vx/ 


3H yur 'bvr ytr yur \vr’ 
Vj Vj + Z 37 3* 3^ . 




AND' 
lur _ 


7NX If y 

'ur - wo co$ ~~ cos — f 

2d X b 

IfX If Y 

(Z = C S/M — cos ~~ 

0l Xb 

V ~ C SM ~ COS — " 

h 2d 


$/ x ILL cos 11 

Xd Xd Xb 

t&cosZlwll 

Zb Id Zb 




(37&A 


(37*3 



11 

zb 

TX 

Z(X 

irr 

zo~ 


V JS sr/fft/v £//££ G-r Of /) Z1£/1 SAAA/E 
SC/BST/TUT^ ///£<£<?£ A T£^ ft/YJ> S//?Fa iffy 

V = 


VIC 
*1 " 

Cl 
Z b 

S 1 Y 

m 

(X 

S )U 

>ir _ 

C 7 
Z<L 

SIM 

7fY 

b 

SI M 

_ 

M “ 

cr 

b 

cos 

Try 

v> 

COS 


(37c) 


+ 



* T?t cos'** 


cos 


CL 

37 y 


0 . b 


Zb 




i - 


+ 


+ 


CJt 

y 


COS'Vr COS^ ™ 


Z<L 


^ cos^ COS 


r; 

7 r x 


, ^ b- 

l f /K? 7* 
^ 11 H 


.XZ 


5 f W 


IfY 

Xb 


S] „^ C 0 S »n\ 


XX 


xb I 


+ z 


wir a* c ,,x7r X 7i M .,*ry\ 

TTaFy SIN zx cos u c n n Slh} zb) 


+ (S£ <«• 


ZZ Zb) 


• +*> r 


ff^-f cos 

11 

11 

COS ~~~r cos 

7 7Y 

— COS 

m 

[ [cLb 

X 

zx 

Zb 

S / 






‘”-5 


, \-v\n±r 

+ X .1 4 b 1 


s,»& 


? *< 


ff S ,»! 1 SI „£ SI ,U SI ,11 

ya.b cl xx z\> b 


$in *UL sllt iIl 

i CL X ^ V M b 


8 CL b* 


’MIT 7, 

8 A r b 


n 

a 

S 1 A/‘ 

rx 

cos 

1A. 

XX 

(, »'S 

COS 

tt 

Zb. 

m 

XX 

CCS 

7TX 

*a 

5 1 N 

tl 

b 


COS 

TTY' 

Xb. 


Eh 


' c^rH 

Cl 


(cw^yrM \ i 

“l tt 


'C_ Vji 
, b 


c vj^ t x <x ' 
3 b* , 


✓ 

, if ywsr'b m't* t ‘?u' f r*a 

-r — 4- T * 

It ' r* / 1 I /n yi i ' yi i— / I *5' 


*t [XU a? 

+ z^\—~ 


iZZCLb 


ZEl b 3 ’ 


/iC c'uJJ-ir'' cKxj-ir* 


7 !Z CL 

/ 


ix y 


, (/-^r , szc 1 - . 

+ T" *+* 

£ n ? ho. 


cMV 


c 'winr^ 


TM/S J5 T/Yf STEfr/tt EHEfiC-Y OF A JtECTYHZ £U*-M 
FlErt BfiFhMZ W/TYt a. ^ b 


65 Q> 



check EQUfiTlOA/ EV SETTING- b A A/P 


CHECH NC-H/NST T /tlO$ JfE U tfo SCI V E 12 0 

S' y i- r 

Eh f( ClZlSk) _ / c ^7r z a \ ^ i c*Tf z & \ _ / czhEt % e \ 

Z[}-V°) {[ CL ) [ 3 CE ) 1 \ a I ( 3 OS t 


+ 


\ \ 3 U> 2 if H CL 

hVxsloJ 


%o?Tt‘ i gy^T'cL 
+ usaT + 2 SL ti> 


+ XfH 


u c z 

H 


v 


c uCnr 7 - 

iza. 


-+• 


cwjT 

)XCL 

/ 


+ 


{\-ir)\Cir x (L , 

"IT **“ + 



C^TT^CL 


H &■- 


cjKj [2 

G<L 


mV' 

^ A 


5 "et -y~O^.E 


Eh f f scsr z W\ c'UCr^ 3 cw z r' 

~T 


V 


V = 


V = 


/ S7E ( 

xszaE 

✓ 

t , 3C 2 T 
+ 14 


r s’V’ws 

/ i?/5" 

t ZKh CC- 

i?/> ( 

5"E ,f MJE 

z.r | 

Ci oE 




tz&. 


X Ho- 


se 1 JZC' Lt l 
t 1 + 1 } 

XH<X- 


+ C : 


I 


vrjN 9 _c 

n> f 3 i 


t7 'rC.VJl £f 

6 <L T \ f 1 


)l 


CHECKS 



An Equation for w q is determined by first obtaining Equations (42) and 
(43) by differentiating Equation (39) with respect to "c" and w , then 
integrating the right hand side of Equation (41), and equating the results. 
This is the deflection of a membrane due to a uniform load "q". By combining 
the equations for the loads to produce the center plate deflection w q and 
using both small deflection theory and membrane analysis a cubic equation in 
w q can be written as Equation (47). The resulting large deflection solution 
is obtained for points between the center and edge of the rectangular plate 
by averaging the deflections produced by small deflection theory and membrane 
theory. This is done in Equation (48). The x and y derivatives of this 
equation yield the slopes about the x and y axes. 
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Appendix B 


Miscellaneous Equations 

This appendix contains equations for defining the boundary of a 
trapezoid, for finding the mean and ms, and for finding the maximum and 
minimum slope. 

The trapezoid boundary equations are used in the program, BONDRY, 
which tests for the boundary of a planform shape (ellipse, rectangle, 
trapezoid) . 
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The equations used for finding the mean and rms are those found in 
any elementary statistics book.. 

MEAN I~STANDABD DEY/fiTT#// 


MEAX = = M 

** L=\ 



The equations for the maximum and minimum slope are based on the premise 
that the slope at a point is approximately equal to the slope between the 


point and another point a very small distance away. 
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Appendix C 


This appendix gives the details of the data retrieval program. This 
program will search tape 9 (which has been written in binary format by the 
WINDEF program) and obtain the set(sr) of ray trace data required by the user. 

Figure C-l illustrates the order of cards which make up the program deck. 
The format for the control cards on the above deck is: 

Columns: 1-8 16-80 

$J0B (See Manual) 

$SETUP 09 (Number of tape on which required 
data is located) 

$ IB JOB blank 

$DECK BIN09 

$DATA blank 

The AMES 7094 operational manual should be consulted for other items-' 
required on the $J0B cards. 

Figure C-2 illustrates the arrangement of the data deck for multiple 
problems. Each problem requires only one card with the following format: 

Column Symbol Information Format 

1-5 IRTV Retrieval number desired Integer 

There is no limit on the number of sets of ray trace data which may be 
retrieved on one run (as long as all the retrieval numbers desired are on the 
same tape). 

A listing of the retrieval program is given in Appendix D. 
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Figure C-l. Program Deck 



Figure C-2. Data Deck 
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Appendix D 


This appendix contains the listings of the subroutines which comprise 
the single and two ray trace computer programs and the data retrieval program. 
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C E3 
C E4 
C__ E5_ 
C E 6 
C E7 
C E8 


RESPRT 

MENRMS 

MAXMIN 

■rtvlsT' 

bondry 

PACWRD 


PRINTS RAY TRACE AND MEAN-RMS RESULTS 
STORES DATA FOR MEAN AND RMS CALCULATIONS 
CALCULATES MAX/MI N SLOPES AT GRID POINTS 


RETRIEVAL LIST 

TEST TO SEE IF POINT OF RAY IS OUTSIDE PLAN FORM BNDRY 
INDEX WORD PACKING-UNPACKING ROUTINE 


00160 
00170 
00180 
oo 
00 
00 


'-j! 

03 

C 

E9 

PAGE 

- PRINTS PAGE NO i AT TOP OF EACH PAGE (AND RETRIEVAL NO.) 

00220 

C 

FO 

SHRDEF 

- shear deformation generator 

00230 


c 

FI 

SINH 

- calculates hyperbolic sine 

00240 


c 

F 2 

COSH 

- 'CALCULATES' HYPERBOLIC CoS'INE 

00250 


c 

c 

F 3 

TANH 

- CALCULATES HYPERBOLIC TANGENT 

00260 

00270 


80NC 


cc 

CHAP 

.CPU. 

CPRSS 

DEL 

DIMA 


DIMB 


LENGTH OF ELLIPSE SEMI AXIS 
LENGTH OF RECTANGLE 

T/2 " TrASETETN GTFT "OFTR'A'PE'ZOTD 

ARRAY FOR STORING MEANS 
ARRAY FOR STORING MEAN DATA 


ARRAY FOR STORING RMS DATA 
Y DIMENSION OF SHAPE 
HEIGHT OF ELLIPSE SEMI AXIS 

heTghT ofTTcTangle ” " 

HEIGHT OF TRAPEZOID 
BOUNDARY CONDITION 


UPPER X DIMENSION OF TRApEZO 
ICHAP - SHAP = GEOMETRIC SHAPE 
DUMMY ARRAY_ FOR CONSTANT „AND VARIABLE STORAGE 
CABIN PRESSURE 
GRID SPACING 
AA DIMENSION 


BB DIMENSION 


00290 

00300 

TTOSTCT 

00320 

00330 


00340 
00350 
00_3_60 
_ 00 3'7d" 

00380 

00390 


00400 

00410 

00420 

66430 

00440 

00450 


00460 


.JUMC— JS _CC -DIMENSION 

DON = CONSTANT IN REFRACTIVE INDEX EQUATION 

DWX s ARRAY OF GRIDPOINT DEFLECTIONS FOR SECOND PANE 

EANDF = ARRAY USED IN RECTNG 


FR = PLATE STIFFNESS (D) 

GNU = POISSONS ratio 

I BC = 1> INDICATES POINT IS OUTSIDE PLANFORM BOUNDARY 

'I CHAP =' SEE "CHAP 

IDT a DEFORMATION DATA RETRIEVAL SEQUENCE NUMBER 
I LCD a 1, FIND DEFORMATIONS BY LARGE DEFORMATION METHOD 


QM7Q 

004-80 

00490 

00500 


00510 
00520 
0053 0 
' 00540 ' 
00550 
00560 




_C NPAN = N0 ± OF PANE S __ _ 00940 

“ C NPRS“=“ NO* ’OF~~PRES“SURES 00950 

C NRAG = NO. OF RAY ANGLES 00960 

C NRFI = NO. OF REFRACTIVE INDEXES TO BE READ IN 00970 

C NSCL = NO. OF SCALES 00980 

C NSPC = NO. OF SPACES 00990 

c_ ^ oif__ - supplemental ARRAY __ __ _ 01000 

"c plna " = array of pLa'ne' angles " “ oT0“io'"“ 

C PRES = ARRAY FOR STORING I NTERST I CIAL PRESSURES 01020 

C PRSS = PRES ( I ) = PRESSURE ON PLATE 01030 

C RAYA = ARRAY OF RAY ANGLES ■ 01040 

C RES = ARRAY FOR STORING LOS OUTPUT 01050 

C RI = A RRAY OF REFRACTIVE INDEXES __ 01060 

C RIC = REFRACTIVE INDEX COEFFICIENT 01070 

C RHS - ARRAY USED IN RECTNG 01080 

C RTV = ARRAY FOR STORING RETRIEVAL INFORMATION 01090 

C SCAL = ARRAY FOR STORING GEOMETRIC SCALE FACTORS 01100 

C SHAP = SEE CHAP OlllO 

C SKAL = SCAL(I) = DIMENSIONAL SCALING FACTOR 01120 

_ SPAC = a"RRAY FOR STORING' SP'ACE - FACTORS - 01130 

C SPAD = SPAC ( I ) = SPACE BETWEEN PLATES 01140 

C STAT = ARRAY FOR STORING MEAN AND RMS DATA 01150 

C STd = ARRAY FOR STORING RMSeS 01160 

§ C THIC = PLATE THICKNESS 01170 

C W ARRAY OF GRIDPOINT DEFLECTIONS FOR FIRST PANE 01180 

C WORD =' ARRAY FOR THTF Oil 90 

C X = ARRAY OF X COORDINATES OF GRIDPOINTS IN DEFORMATION TABLE 01200 

C YONG = YOUNGS MODULUS 01210 

c ‘ ' ' ■ ‘ ‘ 0 1 220 

DOUBLE PRECISION AVG , AVS 01230 ' 

C 01240 

COMMON DOM - ' “ 0~1’2"5"0 

C 01260 

0 EQUIVALENCE (DUM( 1), CON) 9 ( DUM ( 501)9 X)» 01270 

1 ( DUM ( 1501) , Wjl ( DUM ( 22 51 )"> DWX ) , 01280 

2 • ( DUM ( 3001 ) » JPN ) 9 ( DUM (3501) , RTV) 01290 

C 01300 

q- yatence' rcwr""nv bthatv tcqnt th “dtmbtv “crmo" 

1 ( COM ( 3 J * DIMC) j (CONI 4), DEL) » (CON( 5)» GNU ) > 01320 

2 ( CON ( 6)» THIC)» ( CON C 7) » SPAD) » (CON( 8)» PRSS)» 01330 

3~TCONl 911 NPAN ) j rcWTTDTl 17171 rCON( 111"? rSOTT DTT70 

4 ( CON ( 12)9 I BC ) » (CONC 13), NGP ) , ( CON ( 14), LP7 ) , 01350 

5 ( CON ( 15)9 FR ) , ( CON ( 16), LOCP), (CONI 17)» IPD), 01360 

— - -£-■( ro -y ( - T g y- - “”T p R ] -(tONC"l9yr"tHAP')T - "~ ( CON 1201 IS'CRl )7 01370 

7 (CONI 21)»ISCR2)> (CON( 22), SKAL)» < CON ( 23)9 I SEC ) * 01390 

8 (CONI 24)9 NPAG5, ( CON ( 25), YONG), (CON( 26), I LRG ) » 01400 


9 (CONI 27)j I REL ) > 


( CON ( 28), 


LP 5 ) 9 


I CON ( 29) ,CPRSS) 


01410 




.01420 




0 

1 

2 

EQUIVALENCE 
(CON( 32) * MI BP ) » 
( CON ( 53 ) J SCAL) » 

( CON ( 30), I RM ) 9 
( CON ( 61 ) 9 SPAC) * 

( CON ( 
( CON ( 

31 ) * 
69) * 

IPB ) * 
PRES) * 

01430 

01440 

01450 



3 

( CON ( 77 )» PLNA ) » 

( CON ( 85), RAYA)* 

( CON ( 

93 ) * 

R I ) 9 

01460 



4 

( CON ( 10 1 ) » RES ) * 

(CON (315) * STAT) * 

( con ( 37 1 ) * 

OIF) 

01470 



4 

»(OIF(1)jIDX)»(OIF(2)»IDY)»(OIF(3)»X1J»(OIF(4)»Y1> 



01480 


C 







01490 



0 

EQUIVALENCE 

( RTV ( 1 ) , JT1) , 

{ RT V ( 

41 ) * 

RT2) * 

01500 



1 

(RTV( 8 1 ) > RT3)> 

( RTV ( 121)* RT4)» 

( RTV ( 

161 ) * 

RT5 ) 9 

01510 



2 

( RTV ( 201), RT6), 

( R TV ( 241) * JT7) * 

( RTV ( 

281 ) * 

RT8 ) * 

01520 



3 

( RTV ( 321)? R T9 ) j 

< RTV ( 361 ) 9 JT10 ) » 

( RTV ( 

401 ) * 

RT11 ) 

01530 


C 







01540 



0 

EQUIVALENCE 

( STAT ( 1), NMP)* 

(STAT( 

9) * 

AVG) 9 

01550 



1 

(STAT(25)» AVS), 

( STAT( 41 ) * AMN ) » 

( STaT ( 49 ) * 

STD) 

01560 


c 







01570 



EQUIVALENCE ( CON (33) 

* ITEST ) * ( OIF ( 11 > »N2) 




01580 


c 







01590 



0 

DIMENSION CON ( 

500)* X ( 2 1 » 33 ) » 


W( 21 ,33 ) * 

01600 



1 

DWX ( 21 > 33 5 » JPN ( 500 ) * RTV (500) 




01610 


c 







01620 



0 

DIMENSION SCAL ( 

8 ) * SpAC ( 8 ) » PRES ( 

8 ) * 

PLNA ( 

8 ) 9 

01630 



1 

RAY A ( 8 )» R I ( 

7 ) * WORDt 15) 




01640 


c 







01650 




DIMENSION NMP ( 8)9 

AVG ( 8) * AVS ( 8) * AMN ( 8) 

* STD ( 

8) * R ES ( 1 80 ) 

01660 


c 







01670 




DATA TRAP/4HTRAP/ , 

EL IP/4HEL I P / * RECT/4HRECT/ 



01680 


c 







01690 . 






'“01 ?00 


c 







01710 


C= = =- 

a<= 

THIS SECTION INITIALIZES INDEXES# 




01720 


c 







0f?30 




CALL CLOCK (TIME) 





01740 




WRITE (6*9070) TIME 





01750 


9070 


FORMAT ( 1H0*25HWINDEF TIME = 9 FIO. 

4) 



01760 




I S I » 5 





01770 




iso = 6 





01780 




IS'CRi = 7 





01790 




I SCR2 = 8 





01800 




IS9 » 9 





01810 




IDT = 0 









I RT = 0 





01830 




IRM = 0 





01840 




LIN = 0 





01850 




IPD = 0 





01860 




I PR = 0 





01870 


IPV = o 01880 


n nln 



IBC = 0 01990 

CHAP = 0.0 02000 

02010 

= = === READ lN~P A’ RAM E T E R DATA. ” ” 02" 020”' 

02030 


READ < I S I *500) SHAP > BONC » AA » B(3> CC» TH I C > YONG » GNU? DEL 02040 




CO 

u> 


ANGLE® El *45* 

IF(PLNA( I ) .EQ. ANGLE) GO TO 300 

I T EST = 1 

300 CONTINUE 

IF (MRT *NE. 0) GO TO 201 
_I F ( N OPR T__ s_E Q_i _0_) JR E WLND __ I_S C R 1 
I F"TnOPRT ", EQ i~ Of REWIND ISCR2 
IF ( NOPRT * EQ . 0) REWIND IS9 
IF (NOPRT * EQ . 0) MRT = 1 

C 

C===== MAIN DO-LOOP ON NUMBER OF BOUNDARY CONDITIONS. 

C 

201 DO 200 LP1 = 1 »NBC ' ' 

IF ( LP1 .EQ. 2) I BC=2 

DO 200 LP2 = 1>NSCL 

M I BP = 0 

SKAL = SCAL ( LP2 I 

IF (SKAL . EQi 0.0) GO TO 903 

' DTm'A =" A“A"*SCAL (LP2) ~ " 

DIMB = BB*SCAL( LP2 ) 

DIMC = CC^SCAL ( LP2 ) 

I CHAP = CHAP 
DO 609 I S = 1 > 33 

_DO__609 JS»1»21 

x"( fsTjsT =T. e-6 ' ““ 

W( IS, J S) t> 0.0 ' 

609 DWX ( IS, JS) =0.0 

C 

c= = = = = SELECT PLANFORM To BE SOLVED. 

C 

GO T 0 C 3 0 1 , 1 " 0 2 » 1 0 3 ) , TCHAP 

301 CALL ELI PSE 
GO TO 104 

“TO 2 CALL RETTTTTS 

IF ( I SHR • EQ* 1) CALL SHRDEF 
GO TO 104 

_ ot _ ct __ TR]52:0d 

104 I F ( I CHAP . EQ* 3 ) GO TO 202 

IF( (DIMA/2.) .GT. (32. *DEL) ) GO TO 1060 

( p f m~b / 2 ^ GO TO 1065' 

202 SPAD = STAR 

IF (NSPC ,EQ« 0) GO TO 105 
D"0'200~LP3=T>N'$PC "" 

SPAD = SPAC ( LP3 ) 

105 DO 200 LP4 = l.NPRS 
I LRG = 0 


02360„. 
02370 
02380 
02390 
02400 
02410 
02420 
02430“" ' 
02440 
02450 
02460 
02470 
0 2480 
““ 0 2490'”“ 
02500 
02510 
02520 
02530 
02540 
“ 02550 '“' 
02560 
02570 
02580 
02590 
026 00 

02610'”" 

02620 
02630 
02640 
02650 
02660 
" 02670'“ 
02680 
02690 
02700 
02710 
02720 
“ 02730" " 

02740 

02741 

02742 

02743 
02750 
02760“ 
02770 
02780 
02790 



u [u u ! i ' i i u xj u 



CALL MAXMIN 
IF ( ILGD .EQi 
CALL LRGDEF_ 

"ILRQV“i 

CALL DEFRES ( 


(IRT» NOPRT ) 


PERFORM RAY TRACE ON DEFLECTED SHAPE FOUND ABOVE. 


DO 194 LP5 = 1 sNRAG 

‘do “ is 2 T=rrs* 

NMP ( I > = 0 


NMP(I) = 0 
A VG ( I) - 0 * 0 


A VS ( I ) = 0*0 
AMN< I) = 0.0 

JSTD< n _= 0.0__ 

RAYAN fa RAYA ( LP5 ) 
DO 192 LP6 = 1 > MGP 


K 1 = JPN ( LP6 ) 

CALL PACWRD (K1»K2» 2) 

"THIS" "SECT TON ~ B 7FA $"S~E"5" " a L~L " PoiTTT‘5" RUT“W 

XQ = X ( K1 » K2 ) 


1‘N'CH “SQUARE GRID 


03020 

03030 

03040 

03050" 

03060 

03070 


03080 

03090 

03100 

"0”3'110~ 

03120 

03130 


03140 
03150 
03160 
’ 03170" 
03180 
03190 


3200 
03210 
03220 
03230* 
03240 
03250 






ZQ = 0.0 03280 

XQQ=XQ/(2.*DEL) 03290 

I X=XQQ 03300 

XU=IX 03310 

RE=XQQ-XU 03320 

IF (RE.NE.__0_. ) GO TO_ 1_92_ __ _ __ 03330 

' - y QQ=Tq 7(2 c *DE L T " 03340 

I Y=YQQ 03350 

' YV=I Y 03360 

RE=YQQ-YV 03370 

IF(RE.NE.O.) GO TO 192 03380 

DO 190 LP7 = 1»NPAG 03390 

- PLANA « ”PLNA”(LP7") 03400 

CALL RAYTRA (XQ> YQ, ZQ, PLANA* RAYAN) 03410 

190 CONTINUE 03420 

C 03430 

C THIS SECTION PRINTS THE RAY TRACE DATA AND STORES THE COMPONENT 03440 

C DATA IN MENRES NEEDED TO CALCULATE THE MEAN AND RMS. 03450 

- - “ — “ " 03460 

I SEC = 1 03470 

CALL RESPRT (IRT. NOPRT) 03480 

^All KENR.mS OTZfW 

192 CONTINUE 03500 

C 03510 

C THrS"SECTTON" CALCULATES THE' ME' AN "AND “RMS AND "THEN ~P RTNTS~T H E M 03720 

oo C 03530 

^ ISEC = 2 03540 

CALL MENRMS _ — ' ’ ' ' 03550 

CALL RESPRT (IRTt NOPRT) 03560 

194 CONTINUE 03570 

IF I ( I CHAP . NE" .37". OR . ( N2 «NE .1 ) T GC To" 20 0" """035 80 

DO 199 K = 1 j 21 03590 

DO 199 L = 1 > 33 ' 03600 

5TTTTL T WrK’i IT7Tn^S=T3TT551 oTSTcT 

199 DWX(K»L)=DWX(K»L)/PRSS 03620 

200 CONTINUE 03630 

WT0 _ T0U . -03"6W 

C 03650 

C THIS SECTION PRINTS THE ERROR COMMENTS. 03660 

C 03(570 

900 WRITE ( I SO * 950 ) BONC 03680 

950 °7PRMAT J1H1/1H0,37HJHE BOUNDARY CONDITION WORD USED WAS_»A4 9 ___ 03690 

l" 2 5H"WH I CH“'fS“ NOT ACCEPTABLE .7"“"" “ 03700"' 

GO TO 2000 03710 

901 WRITE ( I SO > 9 5 1 } SHAP 03720 

951 0 FORMAT ( lHl/lH0/iH0>"28HTHE PLAKFFORM WORD USED WAS. »A4» 03730 










1 25H WHICH IS NOT ACCEPTABLE.). _ _ _ 03740 

GO TO 2000 ~ 03750” 

902 WRITE ( I SO > 95 2 ) 03760 

_ 952 0 FORMAT (1H0»43HTHE THICKNESS, YOUNGS MODULUS, OR THE GRID , 03770 

- 19hincrement are ZERO.l ‘ 03780 

GO TO 2000 • 03790 

90 3 .WRITE (ISO, 953) LP2 03800 

95 3 FORMAT (IhO, 6HSCALE ( ,11, fOH ) *IS~ ZERO'. ) 03810“"" " 

GO TO 2000 03820 

1000 LIN = LIN + 100 03830 

call RTVLST (IRT, LIN» IPV ) 03840 ~ 

IF ( NOPRT .EQ. 1) GO TO 1010 03850 

WRITE ( ISO , IO5O ) IPR , IPB 03860 

10 5 0™ 0 FORMAT "“( lHiVlH0,9HTHER¥~ARE7i 5 , 27H~'PAGES"“o'F RAY 'TRACE OUTPUT T" " ”'03870 

1 30HON THE MICROFILM TAPE ,( TAPE 8)/ , 03880 

2 I HO ,9HTHER E ARE,I5,27H PAGES OF RAY TRACE OUTPUT , 03890 

1 30HON THE RETRIEVAL TAPE (TAPE 9)) 03900 

I NX = 999 03910 

_ CALL_PAGE (IPB* LIN, IS9* I NX ) 03920 

GO TO 1020 ' 0393*0 

1010 WRITE (iso, 1051) IPR 03940 

1051 0 FORMAT (1H1/1H0,9HTHERE ARE, I5»27HP AGES OF RAY TRACE OUTPUT , 03950 

rTo~HO^ Tape <tape~6T) 03950 

1020 WRITE (ISO, 1052) 03970 

1052 __ FORMAT ( 1HO/1HO ,30X,40H#***«- THE PROBLEM YOU GAVE ME TO DO WAS , 03980 

(00 ~ 1 ” 2 OHDONE” CORRECT LY ***** ] “03990 

^ CALL CLOCK (TIME) 04000 

WRITE (6,9099) TIME 04010 

9099 "FORMAT ! IHO, 25 HERD™ WINDEF T I ME~ , FI 0.4) 04020 

1060 WRI TE ( 6 , 9098 ) IRT 04021 

9098 FORMAT a H2_*38H THE PR_OBlLEM__ DESIGNATED RETRIVAL NUMBER , 1 4 , 58H HAS IT 04022 

IS AA DIMENSION GREATER THAN" THE““PRO G~R A M“'CAN”‘ "HANDLE*") 040"23 " 

1065 WR I TE ( 6 » 9097 ) IRT 04024 

9097 FORMAT( 1H1,38HTHE PROBLEM DESIGNATED RETRIVAL NUMB ER , I 4 » 58H HAS IT 04025 

IS BB DIMENSION GREATER THAN TiTE^ROGRAfT~CAN HANDUeT) 04026 

GO TO 100 04027 

2000 _STOP 04030 

END 04~Cf40 

SIRFTC MS23D1 04050 

CEL IPSE 04060 

SUBROUTINE ELIPSE “““04070 

C ' , 04080 

C THIS SUBROUTINE GENERATES THE TABLE OF GRIDPOINT DEFORMATIONS FOR 04090 

C AN ELLIPSE "" “ ” ” 04T0O 

c 04110 

C A ELLIPSE MAJOR SEMI AXIS 04120 

C B S' ~E L L I PS E MINOR SEM I AXIS ~ 0 4X30 



~ELL I P-T--LC . -F-0 CAL -DLLS TAW CE. _ 

DEFLECTION AT POINT I»J OF SECOND PANE 
ELLIPTIC COORDINATE 
PARTIAL OF ET WRT X 


PARTIAL OF ET WRT Y 
ROW INDEX 

COLUM INDEX 

GRTDPOI NT COUNTER 
NUMBER OF GRID POINTS 

DEFLECTION AT POINT i»J OF FIRST PANE 


CONSTANT IN DEFLECTION EQUATION 
CONSTANT IN DEFLECTION EQUATION 
PARTIAL OF W WRT ET 

PARTIAL OF W“WRT"ZI “ 

X COORDINATE ARRAY 

X VALUE AT ELLIPTIC BOUNDARY ALONG ANY ABSISSA 


.04.140. 

04150 

04160 

04170 


04180 
04190 
042 00 
'04210 
04220 
04230 


04240 
04250 
042 60 _ 
04270 " 
04280 
04290 




ormolnn 


B = DIMB/2.0 

= n^ITI^XTrE~TNDl£XES j — 

... J E ( A_jGT_» B) GO TO 201 

TM = B 

8 = A 
A = TM 

C = SORT ( A^A - 8*B )“ ! — — 

XLIM = A 
I a 0 

K = 0 

X ( 1 » 1 1 = 0.0 ^ „ 

~ GO TO TlOO J 10A ) 5 1 BC — — 

calculate constants 

IF (A * EQi B) GO TO 102 
X ( 1 » 1 } = A 
'~ZT”= ITS 

ET = 1.0 
XC = X(l,l) 

TC=~07— * — 

CALL ELI PI T (c. XC > YC? ZI» ET > FZP? FEP> GZP , gEPj DET ) 

Aicr =Tf 

A20 a 2.0*ZI 
A 40 = 4»0»ZI 

~~CK20~^ C0SHTA20) 

CA40 = COSH { A40 ) 

C A 2 5 = ( COSH ( A20 ) ) 

S A 2 S = f 'STN'ff fA 2~0 ) ") '##~2 " — 

SA2Q = ( SINH ( A20 ) ) 

- W0 .= lC»*4)/(12>0»12 8.0«CA?S*CA&n*FR^ 

OMNU = (1.0 “ GNU) — — — 

X(iIiI < f O Sli OMNUM ' <3 ‘ 0 ^ CA2S “ 2e0) ^ SA2Q)/(2 ' 0 ^ CA2S " (0MNU) ^ SA2S 5 

C A L C U L AT E "GR I D 

I = 1 + 1 
J a J+l 

~K~ = K+l ’ ■■ — — _ 



n n n 



DWY=DEL#EJ 05420 

IF (DWY *GT. B) GO To 800 05430 

XL IM = ASSORT (1.0 - (DWY **2/(B*B)>) 05440 

IT "Id wr ;ie".~ "bt"”go"tct to ? wso 

GO TO 800 05460 

05470 

= = = = = T H I S S EC T'16 N""''S"6U^E S"’’Th E”"^TRp LT"3"u P P’O j^ED"”'"l P DG E WHEN A ' = ' B ( C I RCL'E ) 0 5480 

05490 


10? __ JE! =_ 1.0/(64.0^_FR)_ _ 05500 

Yg-g— B ("x 5 “ o+gnu 57 a t o+g'nTJ )" ) * (T*a 7 o 5 5 10 

I = 0 05520 

J = 0 05530 


X ( 1 * 1 > = 0.0 05540 


XL IM = A 0_5_550_ 

" 205 -------- - - ' 05560 

103 J = J + l 05570 

K = K+l . 05580 

K 1 = I 05590 

K2 = J 05600 

CALL PACWRD ( K 1 » K_2_> 1 ) _ _ _ _ _ 05610 

J P N T K ) “V K 1 '0562 O' 

X 2 = X( I *J)*X( I , J) 05630 

EJ = 1-1 05640 

Y2=DEL*DEL*EJ*EJ 05650 

TE3 = (A*A *- X2 -Y2) 05660 

T E4= (TE2 - X2 - Y2) 05670 

WT I , J ) "=~Te 1 # T E3 *T "E 4 " " " "■""“05680 

I F ( NPAN « EQ« 2 ) DWX ( I > J ) sW ( I » J ) 05690 

X(I»J+1) = X ( I » J J + . DEL 05700 

E j = I ; 05710 

DWY=DEL#EJ 05720 

IF <X(I>J+1) *LEi XLIM) GO TO IO 3 05730 

x ( fjJ+i ■)""=” ol~o ~ ' ' ~ '05740 

J = 0 05750 

X< 14-1 » J + l ) = 0.0 05760 

__ 05TT0~ 

DWY=DEL*EJ 05780 

IF (DWY *GT. B) GO To 800 05790 

""XL! M A*SQRTTT7o" - TdwY #*2/fB*Br) )“ " 05800" 

IF (DWY 4 LE . B) GO To 205 05810 

GO TO 800 05820 

C 05830 

C== === THIS SECTION CALCULATES THE GRIDPOINT DEFORMATIONS FOR AN 05840 

C ELLIPSE WITH CLAMPED EDGES. 05850 

C ' " “ 0 5”8 60” 


104 TEM = (24.0/(A#*4)) + (24.0/ (B#*4) > + < 16.0/ ( A*A*B*B) ) 05870 

WO = 1.0/(FR*TEM) 05880 

207 I = 1+1 05890 

105 J = J+l 05900 

K = K+l 05910 

K2 = J 05930 

CALL PACWRD (K1»K2»1) 05940 

JPN(K5 = K1 03950 

E J= I -1 05960 

DWY=EJ*DEL 05970 

t'em =iivo t xriY j ) +x nv jy/ r a+yf) row y+dy? i cb+b dt o59so 

W(I»J) = WO*(TEM**2) 05990 

I F ( NPAN. EQ» 2 ) DWX ( I » J ) =W ( I , J ) 06000 

X( I»J+1) = X( I»J) + DEL 


06010 





— I-F-— ( X (-1-0 U+4- ) - -i ue*— XLrW4J— GO-ia -1-0-5 - — 

X(I»J+1) = 0.0 
J = 0 

X ( 1+1 » J+l ) =0.0 



_06020 . 

06030 

06040 

06050 


EJ= I 



06060 


DWY=DEL*EJ 



06070 


IF (DWY .GT. B) GO TO 800 



06080 


XLIM = ASSORT (1.0 - (DWY,*DVJY / ( B*B ) ) ) 



06090 


IF (DWY *LE. B) GO TO 207 



06100 

800 

NGP = K 



06110 


RETURN 



06120 


END 



06130 

$ I BFTC 

MS23D2 



06140 

CEL1PIT 



06150 


SUBROUTINE ELIPIT (C» X, Y, Xl» ET, FXP, FEP, GXp , 

GEP » 

DET ) 

06160 

C 




06170 

C 

THIS S UBR OU Tin E"D e t e RM I n s The~EI l I p t I C COORDINATES” 

XI AND ET s 

06180 

c 

CORRESPONDING TO THE CARTESIAN COORDINATES X AND Y. 



06190 

c 




06200 

c 

ITERATION IS by the NEWTON-RHAPSON method of SUCCESSIVE 

APPROX. 

06210 

c 




06220 

c 

C = ELLIPTIC FOCAL DISTANCE 



06230 

c 

DET = determinent 



06240 

c 

ET = ET COORDINATE VALUE IN ELLIPTICAL SYSTEM 



06250 

c 

FEP = PARTIAL OF FIO WRT ET 



06260 

VP. C 

Flo = FUNCTION F 



06270 

M c 

FXP = PARTIAL OF FIO WRT XI 



06280 

c 

GEP = PARTIAL OF GIO WRT ET 



06290 

c 

GIO “FUnc'i'Ton g 



’TTSWO 

c 

GXP = PARTIAL OF GIO WRT XI 



06310 

c 

I DON » 1 INDICATES ITERATION IS COMPLETE 



06320 

T 

~ X " “= T COORDTNATE WUTTN RETT^GuPnrSYHTeft * 



06330 

c 

XI = ZI COORDINATE VALUE IN ELLIPTICAL SYSTEM 



06340 

c 

Y = Y COORDINATE VALUE IN RETANGULAR SYSTEM 



06350 

c 

-JXTTOT ' H E R L E F T H AN 



06360 

c 




06370 


I DON a 0 



06380 

100 

IF TY .NE. 0«0) 50 TO 103 



06390 


IF (X «GT . C) GO TO 101 



06400 


XII = 0.0 



06410 


Ell = ACOS(X/C) 



06420 


GO TO 108 



06430 

101 

XI = 1.0 


> 

06440 


“ ET =“0". O' 



06450 

102 

FIO = X - C*COSH(XI J*COS(ET) 



06460 

< 

FXP v= - C*SINH(XI )*COS(ETJ 



06470 


xil a xi - FIO/FXP 



06480 




n n n n;n 



SUBROUTINE RECTNG 06900 

06910 

TH'IS""SUB'R0(JT IN"E"GE'NER“ATES “The" TAbTE “OT G R" ft> PtffNT" DEE OTTMA T I 0 NS' “ ' “06920' 

FOR A RECTANGULAR PLATE WITH DIMENSIONS A BY B AND RIGIDITY D 06930 

06940 

A = PLATE LENGTH 06950 



_ c .A UP-HAM- j5-DEF-LECXI0N-jC0EE£I.CLEN.T — Q696CL .. . 

C ALPHAN = DEFLECTION COEFFICIENT 06970 

C ASPECT a SQUARE OF ASPECT RATIO 06980 

C B = PLATE WIDTH 06990 

C BETAM = MOMENT COEFFICIENT 07000 

C BETAN = MOMENT COEFFICIENT 07010 

C D PLATE STIFFNESS 07020 

c -- -“ D - w - x “ "= DEFLECTION 'AT' POINT T»J OF SECOND "PANE " 07030 

C DWXMOE = SLOPE IN X DIRECTION FOR MOMENTS APPLIED ALONG ONE EDGE 07040 

C DWXMOF = SLOPE IN- X DIRECTION FOR MOMENTS APPLIED ALONG OTHER EDGE 07050 

C DWXSI M = SLOPE IN X DIRECTION FOR SIMPLY SUPPORTED EDGE 07060 

C DWYMOE = SLOPE IN Y DIRECTION FOR MOMENTS APPLIED ALONG ONE EDGE 07070 

C DWYMOF = SLOPE IN Y DIRECTION FOR MOMENTS APPLIED ALONG OTHER EDGE 07080 

C * DWYSfM“='TLOP¥TN“Y DIRECTION FOR” SIMPLY" SUPPORTED' EDGE”””' " 07090’”” 

C EM = COUNT ON NUMBER OF TERMS 07100 

C EN = COUNT ON NUMBER OF TERMS 07H0 

C I = ROW INDEX 07120 

C I BC = BOUNDARY CONDITION SWITCH 07130 

C ILIM = NUMBER OF EQUATIONS USED To DETERMINE REDUNDANT MOMENTS 07140 

"" C " J « "COLUMN 'INDEX* " “07150 

C K a GRIDPOINT COUNTER 07160 

C MN NUMBER OF SIMULTANEOUS EQUATIONS 07170 

C MOMENT = COEFFICIENTS OF LHS OF EQUATIONS 07180 

C NGP = NUMBER OF GRIDPOINTS 07190 

C NM = COLUMNS IN RHS OF EQUATIONS 07200 

« " C RHS”""' a RHS" OF' SET o"F SIMULTANEOUS” EQUATIONS ' ” 07210 

C W DEFLECTION AT POINT I»J OF FIRST PANE 07220 

C WMOE = DEFLECTION FOR MOMENTS APPLIED ALONG ONE EDGE 07230 

c WMUT — orz-40 

C WS I M = DEFLECTION FOR SIMPLY SUPPORTED EDGE 07250 

C X _ = X COORDINATE_ ARRAY ____ __ __ __ 07260 

COMMON DUM 07280 

C 07290 

SI oF'"Rl^%TAND'r;M3METn ’ 073oo 

0 EQUIVALENCE <DUM< 1)» CON)* ( DUM ( 501) > X)> 07310 

1 ( DUM ( 1 50 1 ) » W)» ( DUM (2251) * DWX ) » 07320 

room 300TTT jprtt tdumtjsto ,-rtvt; — ' 07330 '" 

3 ( DUMI4001 ) 9 MOMENT) 07340 

C 07350 

0 EQUIVALENCE (C 0 N( 1), DIMXn TconI 2 ) > D I MB ) » ' 07360“ 

1 ( CON ( 3)s DIMC)* (CON( 4)» DEL) s < CON ( 5)» GNU ) 5 07370 

2 <CON( 6 )j THICb_ __ JCON( 7 ) »_ S P A D ) » _ ( _ C0N( „ _8 >_» PR_SS ) » 07380 

“”"3'TC0N (■""”9“)'V"~NPANr» (CON ("lO f, fCON( “'ll ) 5 "ISO) * 07390 

4 ( CON ( 12)5 IBC)» ( CON ( 13) » NGP)» (CON( 14)» LP7)* 07400 

5 ( CON ( 1 5 ) 5 FR)» ( CON ( 16)? LOCP)> (CONI 17)» IPD)» 07410 

6 ( COM ( 18)5 I PR ) * ( CON ( 19)> CHAP)» (CON(20)5 ISCRl)* 07420 


7_ I CON ( 21)»ISC_R2)» (CONI 22) , SKAL), (CONI 23 ) » ISEC),__ _07430 

8 7coNT'24')7 NPAG") » ' (c'ONT 25T» ToNG) »' ( CON ( 26' f » " ILG D )»" "" " 07440 

9 I CON I 27 ) » I RE L ) » (CON( 28), LP5)» (CONI 29 ) , CPRSS) 07450 


C 07460 



0 

1 

2 

3 

4 

EQUIVALENCE (CON( 30), IRM)* 
( CON ( 53)» SCAL ) » (CON( 61), SPAC), 
( CON ( 77) » PLNA), <CON( 85), RAYA), 

(CONI 31), 
( CON ( 69 ) , 
( CONI 93 ) , 

IPB) , 
PRES) , 
R I ) , 

07470 

07480 

07490 

c 

( CON <101), RES), ( CON( 315 ) , STAT), 

( CON <401) ,RHS) 

I CON (371) , 

OIF) , 

07500 

07510 

07520 


0 

DIMENSION CON ( 500), X(21,33) » 

W( 21 ,33 ) , 

07530 


1 

DWX(21»33) , JPN ( 500 ) ,RTV(500) 



07540 

c 





07550 



DIMENSION RHS(32) ,EANDF(32) , MOMENT (32*32) 



07560 



EQUIVALENCE ( RHS , EANDF ) 



07570 

c 





07580 

c 





07590 

C=s=: 


THIS SECTION SETS UP INITIAL CONSTANTS 



07600 . 

c 





07610 



D = FR 



07620 



A = DIMA 



07630 



B = DIMB 



07640 



ILIM = 28 



07650 



IULIM = ILIM/2 


< 

07660 



ILLIM = ILIM/2 + 1 



07670 

VO 


NTERMS = ILIM - 3 



07680 

•P' 


TERMS = NTERMS 



07690 

10 


I = 0 



07700 



J = 0 



07710 



K = 0 



07720 



X< 1,1) = 0.0 



07730 



PT“ = 3Tr4l5'92'653T 



"07740 



CNST1 = 4.0*1 A**4) / (D*(PI**5 ) ) 



07750 



CNST2 = 4.0* ( A**3 5 / ( D* ( P I ##4 ) ) 



07760 



CNST3 = A*A/ ( 2 # 0*D*P I *P I ) 



07770 



CNST4 = A/ ( 2 » 0*D*P I ) 



07780 



CNST5 - B*B/(2*0#D*PI*PI ) 



07790 



CNST6 = B/ ( 2 * 0*D*P I ) 



07800 



IF { I BC .EQ. 1) GO TO 100 



07810 

c 





07820 

C«aai 

== 

THIS SECTION CALCULATES THE MOMENT COEFFICIENTS FOR CLAMPED PLATE 

"07630 

C 





07840 

50 


DO 55 JK=1,ILIM 



07850 



DO 55 L= 1 , I L I M 



07860" 

55 


MOMENT(JK,L) = 0.0 



07870 



EN = -1.0 



07880 


DO 60 11=1 , IULIM 07S90 




non 



MN = ILIM C8^0 


NM = 1 08310 

CALL SEQS (MOMENT, RHS»MN»NM) _ __ _ 0 8 320 

this section generates deformations for hinged edges 083ao 

08350 




n r> n r> 



DWY=EJ*DEL 08710 

IF ( D.WY a LE « ( B/2 • 0 ) ) GO TO 100 08720 

GO TO 300 08730 

THIS SECTION GENERATES DEFORMATIONS FOR CLAMPED EDGES 08750 

08760 


08770 

200 CNSTB = EM#PI/B 08780 

BETAM = CNST8*A/2»0_ _ __ _ 08790 

MMM “EM " 08800 

CNST 1 5 = ~1.0 08810 

IF ( ( (MMM-l)/2-< (MMM-1 ) M)*2 ) • EQ « 0) CNSTi5=1.0 , 08820 


CNST 1 5 = CNST15/ (EM^EM) 08830 


n n 


C-N5-T-l-6--= _£H*OiSXlS 08840 

CNST17 = COSH (BETAM ) ' 08850 
CNST 1 8 = ALPHAM*TANH( ALPHAMJ/CNST13 08860 
CNST19 = BETAM*TANH( BETAM )/CNSTl7 08870 


EMM a EM/2* 0 + 0.5 08880 

M = EMM 08890 

EJ=I-1 _ ' _ . _ 08900 

DWY=EJ*DEL 08910 

0 WMOE « -CNST3*CNST15*EANDF(M)*(CNSTA*DWY *SINH< CNSTA*DWY )/ 08920 

1 CNST13 -CNST18*C0SH( CNSTA*PWY ) ) *CQS ( CNST A*X ( I > J ) ) 08930 


EEE = IULIM 08940 

EMM = EM/2.0 + EEE + 0.5 08950 

M = EM M „ „ _ 08960_ 

0 WMOF = -CNST5*CNSTl5*EAfiDF(M)*rcNST8*X(i »Ji*SlNH(CNSTB*X( l"»J) )/ 08970 

1 CNST17 -CNST19*C0SH(CNSTB*X( I »J) ) J*COS(CNSTB*DWY ) 08980 

W(I»J) = W(I»J) + -WSIM + WMOE + WMOF 08990 


I F ( NPAN. EQ.2 ) DWX ( I » J ) =W ( I > J ) 09000 

IF (EM .LE. TERMS) GO TO 110 09010 

X<I>J+1) = X(I»J) + DEL 09020 

" IF* ( X ( I » J+lT’TLE . ~ ( A/2 ; o’) > "GO TO ‘ 105" ~ ‘09030 

X<I»J+1) = 0.0 09040 

J = 0 09050 


X ri + l j J + lT = Q . 0 09060 

E J~ I 09070 

DWY=DEL*EJ , 09080 

““ rF“(WY ‘.TE7”"B7"f;‘Fy‘rGO“To'"To"d ~ 09090 

3 300 NGP = K 09100 

800 RETURN 09110 


END ' ' ' " " 09120 

SIBFTC MS23D4 09130 

_CSEQS ______ __ __ __' ' _ , 09140 

SUBROUTINE SEQS <A*B>N>M) 09160 

C 09170 


C MATRIX INVERSION *lTh ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 09180 
C 09190 

C 09200 

T0TO0W " WM - - --- — 09-210 

0 EQUIVALENCE (DUM(l) jCON) > ( DUM ( 501) » X ) j ( DUM (1001) s Y ) 09220 

l»( DUM <1501) »W) t ( DUM< 2001 ) »PWX) » (pUM(250l) >pWY) ■> ( DUM(300l ) >JPN) 09230 


2 7 T DUM ( 35TrrnRTV) 09240 

DOUBLE PRECISION A>B»AMAX jPIVOTjSWAPjT 09250 

DIMENSION IPIVOT(32) >A<32>32) » I NDEX ( 32 * 2 ) >P I VOT ( 32 ) > 3 < 32 > 2 ) 09260 

EQUIVALENCE"! IROWj jRO"W) » rARAXTTVSWSP) >“(TCOLDM TjCOLOM f ‘ " " " 09270' 

09280 

09290 






c _ __ 09310_ 

~ if o~ " d Ft e'rm = iTo ' " “ 69326 " 

15 DO 20 J= 1 »N 09330 

■ 20 IPIVQT ( J ) = 0 09340 

30 DO 550 I«1*N 09350 

C 09360 

C=«s==SEARCH FOR PIVpT_ ELEMENT __ __ _ _ _ 093_70 

" “ c ~ 09380 

40 AMAXaO.O 09390 

45 DO 105 J = 1 >N 09400 

50 IF ( IPIVOT(J)-I) 60 > 105 j 60 09410 

60 DO 100 K = 1 >N 09420 

70 IF ( IPIVOT(JO-1 ) 80 , 1 00 j 740 09430_ 

80" I F"( D ABS ( AMA“X ) -D ABS'( A ( J , KTD 8 5 , 1 007l 00 09440 

85 I ROW= J 09450 

90 ICOLUM=K 09460 

95 AMAX = A ( J > K ) 09470 

100 CONTINUE 09480 

105 CONTINUE __________ „ _ „ __ 09490 

I - F - r ^~ A - k y i2Q ,-io 7# i 28 09 500 

107 PRINT 108 09510 

108 FORMAT (22H MATRIX IS SINGULAR. I 09520 

NCE = 1 09530 

GO TO 740 09540 

128 IPIVOTI ICOLUM) = I P I VOT ( I COLUM ) +1 09550 

C“ 09560 

S c===== I NTERCHANGE ROWS to PUT PIVOT ELEMENT ON DIAGONAL 09570 

C 09580 

130 IF ( IROW-ICOLUM ) 140, 260» 140 09590 

140 DETERM=-DETERM 09600 

150 DO 200 L = 1»N 09610 

160' S¥AR=A(‘I ROWTl) “ """ 0 9"6~2 0~ 

170 A < I ROW »L ) =A ( I COLUM > L 5 09630 

200 A ( I COLUM » L ) aSWAP 09640 

205 IF(M) 260, 2605 210 09650 

210 DO 250 L=1 » M 09660 

220 SWAP = BUROW,L) 09670 

gyo“-g-- ( trow »lT=b ri'coroWTn ~ o 9 6“8 o 

250 B( ICOLUM»L)=SWAP 09690 

2 60 I NDEX ( I » 1 ) =IROW _ 09700 

270 INDEX( I » 2 )=I COLUM 09710 

310 P I VOT ( I ) =A ( I COLUM , I COLUM > 09720 

_3 2 0_ _C 0 JN TI _N_U E_ 09730 

C = = ===D I VIDE PIVOT ROW BY PIVOT ELEMEN „ 09750 

C . 09760 

330 A(I > 0 |_UM,IC0LUM)=10.0D-1 oTTto 







nnlo n n o r» n,n n n n n Oj 


I LD = _ L OAD N U MBE R_ .0 U TPU T BY S AM I S _ (CO L U_M_N.._Cp D_E )_ 10250 

Trow =" row” number ~ " " io260 

ITEM = TEMPORARY 10270 

JLD « LOAD NUMBER DESIRED. THE LOAD NUMBER IS A PART OF THE 10280 


ELEMENT CODE GENERATED BY SAMIS. 10290 

LOC = COORDINATE LOCATION CODE 10300 

M_ „ K j§R_ IDP0 I NT counter. _ __ lo3 _ 10 

N CRD " NO. OF EL E MEN T DATA CARDS TO '“BE “READTn”. “10320 

NGP = NUMBER OF GRIDPOINTS 10330 

sclfac = scale factor tq multiply deflections by 10340 


w = deflection at point loc 10350 
X = X COORDINATE ARRAY 10360 
XS = X COORDINATE AT point LOC 10370 
YS ' Y COORDINATE' AT POl'N'T LOC ' “ “~To380" 

10390 


C 



r 





10410 


0 

EQUIVALENCE 

(DUM( 

1) 

9 CON) ? 

( DUM ( 501)9 X ) 9 

10420 


1 



(DUM( 

1501) 

> W) > 

( DUM (2251) ? DWX)9 

10430 


2 



( DUM ( 3001 ) 

> JPN) * 

( DUM( 3501 ) 9 RTV ) 

10440 

c 








10450 


0 

equivalence 

(CON ( 

1) 9 

DIMA) > 

( CON ( 2)9 DIMB ) 9 

10460 


1 

( CON < 3)’ 

DIMC) » 

( CON ( 

4) 9 

DEL) * 

( CON ( 5 ),9 GNU) 9 

10470 


2 

( CON ( 6)» 

THIC) > 

( CON ( 

7) » 

SPAD) » 

( CON ( 8 ) 9 PRSS ) 9 

10480 


3 

( CON < 9)» 

NPAN ) j 

( CON ( 

10) , 

ISI > * 

( CON ( 11)9 I SO ) * 

10490 

F- 1 

4 

( CON ( 12 ) » 

I BC ) > 

( CON ( 

13) » 

NGP) » 

( CON ( 14)9 LP7 ) 9 

10500 

0 

0 

5 

( CON ( 15) » 

FR) » 

( CON ( 

16) * 

LOCP) > 

( CON ( 17)9 IPD)9 

10510 


6 

( CON ( 18)» 

I PR) » 

{ CON ( 

19) , 

CHAP) * 

( CON (20)9 I SCRl ) 9 

10520 

N 

7 

( CON ( 21)»ISCR2)» 

( CON ( 

22) 9 

~^KAL)T~ 

( CON ( 23)9 ISEC ) 9 

10530 


8 

( CON ( 24 ) > 

NP AG ) » 

( CON ( 

25 ) » 

YONG) 9 

( CON ( 26)9 ILGD)9 

10540 


9 

( CON ( 27) > 

IREL) » 

( CON ( 

28) , 

LP5) 9 

(CONI 29 ) 9 CPRSS ) 

10550 

c 








10560 


0 

EQUIVALENCE 

( CON ( 

30) » 

IRM) » 

( CON ( 31)9 IPB)9 

10570 


1 

( CON C 53)» 

scad * 

( CON ( 

61 ) 9 

SPAC) » 

( CON ( 69)9 PRES) 9 

10580 


2 

(CON( 77) > 

PLNA) » 

( CON ( 

85 ) » 

RAYA) » 

( CON ( 93)9 R I ) 9 

10590 


3 

(CON( 101 ) > 

RES) » 

(CON( 315 ) , 

STAT) 9 

( CON (371 ) 9 OIF) 

10600 


4 

» c 0 1 F t 1 ) » I DX ) » ( 0 1 F < 2 ) 9 I D Y J * ( 0 1 F ( 3 

)»X1)»(0IF(4)»Y1)»(0IF<11)»N2) 

10610 

c 

0 

DIMENSION 

CON ( 

500) > 

X ( 2 1 

03) -> 

W( 21 9 33 ) 9 

1 0 6"2 0 

10630 


1 

DWX( 21 >33) 

>JPN(500) > 0 1 F ( 4 ) 




10640 

c 








10650 



DIMENSION 

LOC (3 ) » 

I LD ( 3 ) > 

ELMO) 


10660 

c 








10670 

* 


READ ( I S I > 500 ) JLDj 

NCRD > SCLFAC > 

XI 9 YI 9IDX, 

IDY 

10680 

500 


FORMAT (2I5s3E10.0» 

215 ) 




10690 


WRITE ( I SO >503 ) SCLFAC 



----- — ^ -—7* * 

10700 






^WRITe' 1 (ISO, 505 ) Xl»Yl 10730 

505 FORMAT ( 1H , 3 1H I NTERPOLAT ION CENTER IS AT Xl = E12.4, 6H, Yl= 10740 

1 Ej 2 »4 ? 1H 0 ) 10750 

WRITE ( I SO » 507 ) I DX , I DY 10760 

507 FORMAT ( 1H » 35HCENTER OF INTERPOLATION SQUARES IS 15? 10770 

1 17H X INTERVALS AND 15* 25H Y INTERVALS FROM ORIGIN.) 10780 

“ ' ~C~' x“lTYl~ COORDINATES OF~ "TRANSLATED ~OR I GI N 10790 " 

C IDX* NO. OF INTERVALS IN X FOR INTERPOLATION CENTER 10800 

C IDYs MO. OF INTERVALS IN Y FOR INTERPOLATION CENTER 10810 

C IF JLD IS MINUS, CARD DATA FOR WINDOW IN ACTUAL CONFIGURATION IS GIVEN. 10820 

C IF NCRD IS MINUS, CARD DATA IS GIVEN FOR ONLY 1 OF 2 PANES AND BOTH 10830 

C ARE THE SAME. __ ___ _ __ __ ___ 10840 

Nl = i “ " ” 10850 

N2=l ' 10860 

I F I NCRD ) 2 * 6 > 6 10870 

2 N1 =2 ’ ' 10880 

NCRD=-NCRD 10890 

6 IR=21 10900 

“ “ fc = 33 * 10910 

IF(JLD) 10,15*15 10920 

10 N2=2 10930 

Jl _ D= _-j L[ ) ■ ” ” row 

IR=20 10950 

IC=20 10960 

^ ~ 15 M=n ’ ■ ” ■ ' ' lWTQ' 

■o DO 104 1=1, NCRD 10980 

READ ( I S I ,501 ) (LOC(J), ILD(J), ELM ( J ) , J=l,3) 10990 

sol Format ( 3 <i 6 » r&T<Ji'2T) now 

c 11010 

C=a=== TEST TO SEE IF DATA IS ACCEPTABLE , 11020 

DC)"‘104 J=I,3 " ' “ ” ”'11030“ 

IF (ILDUJ . ME-. JLD) GO TO 104 11040 

IF (LOC(J) ,LE. 0) GO TO 104 11050 

IROW = LOC ( J ) / 1000 11060 

ITEM = LOC(J) - IROW*1000 11070 

ICOL = ITEM/10 11080 

j-dtr- =~~ttem“ - Tcomo' ~no'90“ 

IF ( ( IDI R.EQi 1 ) .OR. ( I D I R « EQ « 2 ) .OR. (IDIR.EQ.6)) GO TO 104 11100 

I F ( ( ICOL.GT.IG) *OR« ( I ROW sGT . I R ) ) GO TO 20 11110 

XS"_' icoL ~ 1 TlTIcr 

YS = IROW - 1 _ 11130 

GO TO _30 ’ __ ___ __ 11140 

~2 0‘“"XS"=IC'OL-1-I"C 11150 

YS = I ROW-1 — I R 11160 

30 IBY=0 11170 

XS=XS*DEL 11180 


YS =Y5*D_EL __ __ 11190 

call"bonory' TxsT"ys»' TbyT ' """ 11200 

IF ( I BY „ EQ • 1) GO TO 104 11210 

K1 = IROW 112*20 


K 2 = ICOL * 11230 

CALL PACWRD, (K1»K2»1) 11240 

I F C ( IRQW.LE. IR ) « AND « ( ICOL.LE* IC) ) GO TO 3_2 _ J. 1250 

I fTT I ROWTg t d I R ) * AND * (TcOlTgT 7fc )TgO TO "40 -- “ " 1 1260 

GO TO 104 J 11270 

32 K= I ROW 11280 


L = ICOL 11290 
X ( K * L ) = ICOL - 1 11300 

X(IC»L)=X(K»L)*DEL 11310 

C ' ‘ “ “ 11320 

C===== STORE ACCEPTABLE DATA 11330 

IF( < IDIR.EQ.3) .AND. (N2*EQ.l) ) W ( K » L 5 =£LM < J ) *SCLFAC 11340 

I F C ( IDIRoEQa3) i AND » ( N2 » EQ* 2 ) ) DWX ( K » L ) =ELM ( J ) *SCLFAC 113 

IF ( IDIR .EQ. 3) M = M+l 113 

IF ( I PI R «EQ . 3) J PM ( Mi =_Kl __ _ _ 113 

GO TbTl04»34)TNT ' 11390 

34 DWX ( K > L ) =W ( K >L ) 11400 

GO TO 104 11410 



4> w ruj 



( DUM ( 4001 ) 5 
( DUM ( 6001 ) 9 

EQUIVALENCE 


( CON ( 


DIMC) » 


( DUM (3001) * 

( DUM (4751 ) » 

( DUM ( 650 1 ) , 

(CONI 1) , I 
( CON ( 4 ) > 


JPN ) 9 
DUX ) 9 

; T)_^_ 

DIMA) » 
DEL) » 


( DUM (3501) » 

( DUM (5501)9 R } 9 
( DUM (7251)9 DTX) 


( CON ( 
( CON ( 


9 DIMB) 9 

9 GNU ) 9 


11900 

11910 

fl9To~ 

11930 

11940 



2 

3 

4 

TCoFr 
( CON ( 

( CON ( 

5TT 

9 ) 9 
12 ) 9 

i HIC ! 9 

NPAN 5 9 
I BC) 9 

rcwr 

( CON { 

( CON { 

7TT 
10) , 
13) 9 

-SPW5 
ISI ) 
NGP ) 

* 

* 

* 

rcmr 
( CON ( 

( CON ( 

“~8TT 
11) 9 
14) 9 

-•pTTS-57 

ISO) 

LP7) 

9 ^ * 

9 

9 


5 

( CON ( 

15)9 

FR) 9 

(CON ( 

16) 9 

LOCP ) 

9 

(CONt 

17) 9 

I PD ) 

9 


6 

( CON ( 

18 ) 9 

IPR) 9 

( CON ( 

19)9 

CHAP) 

9 

( con (20)9 : 

[ SCRl ) 

9 


7 

( con ( 

21 ) 9 

ISCR2 ) 9 

( CON ( 

22) 9 

SKAL) 

9 

( CON ( 

23) 9 

I SEC ) 

9 



( CON ( 


) 9 

27 ) 9 


IREL) 9 


~EQ 0 IV ALE WOT 

( CON ( 32)9 MIBP)9 

( CON ( 53) 9 SCAL) 9 


( CON ( 77)9 PLNA)9 
(CON(101)9 RES)9 
( CON ( 40 1 ) 9EANDF) 9 


( CON ( 25 
(CON( 28)9 

TcwryoiT' 

( CON ( 33)9 
(CON ( 61)9 


( CON ( 85)9 
( CON (315 ) 9 
{ CON (451) 9 


ONG 

LP5) 9 

\ 

“TRmTT 

I VMD ) 9 

SPAC) 9 


RAYA) 9 
STAT ) 9 
RHS ) 


( CON ( 

( CON ( 29)9 

TCON C 'TiY> 

( CON ( 34)9 


( CON ( 69)9 


( CON ( 93)9 
( CON (371 ) 9 


29 ) 9 CPRSS ) 

3T)T~' lpbt; 

34)9 IDS):. 
69 ) 9 PRES) 9 


93)9 R I ) 9 
71 ) 9 OIF) 9 


EQUIVALENCE (RTV »BI ) 9 (OIF( 1) 9 NDX ) 9 ( 0 1 F ( 2 ) 9 NDY ) » ( XI »OIF ( 3 ) ) 9 
1 ( Y 1 » 0 1 F ( 4 ) 5 9 ( 0 I F ( 5 ) 9 CONST 1 ) » <0IF< 6) » CONST 2 ) 9 (OIF (7) 9 CONST 3 } 9 


2 ( 01 F ( 8 5 9 CONST 4 ) 9 (OIF (9) 9CONST5) 5 (OIF(IO ) 9 CONST 6) 


12010 

12020 

12030 

12040' 

12050 

12060 


12070 

12080 

12090 

"12100 

12110 

12120 


12130 



104 



0 CON3 = (PI#*2/3«0)#<16#0*B/(A**2) + 1*0/A + 1*0/B + 16.0*A/ 12360 


1 (B**2))**2 12370 

C0Nj4 = (35»0 *(P I**2 )»B/A + 35* 0 * ( P I **2 ) *A/B + 640*j0/9_.0j 12380 

C0N5 =“C0fTi7 ( COM2" ~ 1 2 iToTsTO fC0N3/C0N4J )" ' ” 12390 

C CONSTANTS in CUBIC EQUATION 12400 


A1 = 1.0/CON5 12410 











C 


R = TEMPORARY 

ARRAY FOR 

X COORDINATES 



13080 


C 


S = TEMPORARY 

ARRAY FOR 

Y COORDINATES 



13090 


C 


T a TEMPORARY 

array for 

DEFLECTION 



13100 


c 







13H0 




common dum 





13120 


c 







13130 



0 

EQUIVALENCE 

<DUM( 

1 ) > CON) > 

( DUM ( 501) 

> X ) > 

13140 



1 


( DUM { 1501 )> W) > 

( DUM (2251) 

> DWX ) > 

13150 



2 

( DUM ( 3001 ) > UPN ) x ( DUM ( 3501 ) >RTV) > 



13160 



3 

( DUM ( 4001 )> U)> 

( DUM ( 4751 ) > DUX) > 



13170 



4 

( DUM( 5501 ) > R ) > 

( DUM (6001 ) > S J • 



13180 



5 

( DUM ( 6501 ) » T)> 

( DUM (7251 ) > DTX) 



13190 


c 







13200 



0 

EQUIVALENCE 

( CON ( 

1) > DIMA) > 

( CON ( 2 ) 9 

DIMB) > 

13210 



1 

(C0N< 3 ) 9 DIMC) > 

(CON ( 

4 ) > DEL ) > 

( CON ( 5)9 

GNU) > 

13220 



2 

( CON ( 6) > THICJ > 

(CON ( 

7) > SPAD) > 

( CON ( 8 ) > 

PRSS) > 

13230 



3 

( CON ( 9)> NPAN ) > 

(CON ( 

10) » IS I ) , 

( CON ( 11) > 

ISO) > 

13240 



4 

( CON ( 12)> I BC ) * 

(CON ( 

13)? NGP ) > 

( CON ( 14) > 

LP7) > 

13250 



5 

( CON ( 15)> FR ) > 

( CON ( 

16 ) » LOCP ) > 

( CON ( 17 ) > 

I PD ) > 

13260 



6 

( CON ( 1 8 ) > I PR > * 

(CON ( 

19 ) » CHAPl > 

( CON ( 20 ) > 

I SCR 1 ) > 

13270 



7 

( CON ( 21)>ISCR2)> 

(CON ( 

22 ) > SKAL) > 

( CON ( 23 ) > 

I SEC ) > 

13280 



8 

( CON ( 24) » NP AG ) > 

(CON ( 

25) > YONG) 9 

( CON ( 2 6 ) » 

ILRG) > 

13290 



9 

~"CON ( 27 )> I RELTT~ 

( CON ( 

28 ) » LP5 ) > 

_TtiONiT'_T7 

cpr5sT~ 

13300 


c 







13310 

[ — 1 


0 

EQUIVALENCE 

( CON ( 

30) t I R M ) > 

( CON ( 31 ) > 

IPB) > 

13320 

— 

ON 


1 

( CON ( 53) » SCAL) > 

(CON ( 

61) > SPAC) > 

( CON ( 69) » 

PRES) > 

13330 



2 

( CONK 77) > PLN A ) > 

(CON ( 

85) > RAYA) > 

( CON ( 93 ) > 

RI ) » 

13340 



3 

( CON ( 10 1 ) > RES)> 

(CON( 315) > STAT) > 

( CON (371) > 

OIF) > 

13350 



4 

(CON (401) >EANDF ) > 

(CON ( 45 1 ) > RHS) 



13360 


c 







13370 



0 

DIMENSION CON ( 

500) > 

X (21 >33 ) 9 

W( 21 >33 ) > 

13380 



2 

R ( 500) > S( 

500) > 

rr 750) t d'Tx( 

750 ) 


13390 



3 

» U( 21 >33) > DUX ( 21 >33) 




13400 



3 

> DWX ( 21 > 33 ) > JPN ( 500 ) 




13410 


c 







13420 



0 

DIMENSION RT30 ( 3) > 

R T 3 1 (3 ) > 

RT32 ( 3 ) > RT36 ( 2 ) > 

RT3 7 ( 2 ) > RT 3 8 ( 2 ) > 

13430 



1 

RT39( 2) 





13440 


c 







13450 



0 

DATA RT30( 1 ) /13HELLIPSE 

A=/> RT31 ( 1 ) /13HRECTANGLE A 

= / 9 

13460 



1 

RT32( 1 ) / 1 3HTRAPE20 I D 

A=/> RT33/4H B-/ 

> RT 34/ 4H 

C = / > 

13470 



2 

RT 35/6HSCALE : 

=/> RT3 6 ( 1 ) / 10HTH I CKNESS= / » 



134130 



3 

RT37( 1 > /9H 

PANES =/ 9 

RT38(1)/11H SPACING 3 /* 


13490 



4 

R T 39 ( 1 ) / 1 2H PRESSURE 3 / 




‘ 13500 




DATA HING/6HHINGED? > CH"/iH 

T > CL Ml P 7 6 1-T'C LAW PE 7 

V CC"/1HD/' 


“13510 


c 







13520 


C — — = 

: = s 

THIS SECTION MULTIPLIES THE 

UNITIZED DEFORMATIONS BY THE 

PRESSURE 

13530 


c 


LOAD. 





13540 





o 


IS7 = ISO' 

IF (NOPRT .EQ. 0) IS7 = ISCR1 

DO 101 I = 1 ? NGP 

K 1 = JPN(I) 

CALL PACWRD t K1 * K2 > 2 ) 

EJ=K1-1 „ 

R(f) = X ( K 1 » K 2 i 
S(I)=DEL*EJ 

IF t ILRGoEQol ) GO TO 100 

IF (CHAP. EQ. 3. 1 GO TO 99 

T ( I ) « W(K1»K2)#(CPRSS-PRSS) 

DTX( I )= DWX { K1 > K2.) *PR S$ 

~ “ ~GO TO "101 “ ' - 

99 T( I )=W(K1»K2) 

DT X ( I ) =DWX ( K1 9 K2 ) 

GO TO 101 

100 T ( I } =U < Kl jK2 ) 

DTXC I )=DUX(K1 9K2 > 

IfThpan". eqTTT D T X ( i )=o“; 


. 135 . 50 . 
13560 
13570 
13580 
13590 
13600 
i 3 6 10 
'"13620 
13630 
13640 
13630 
13660 
13670 
13686“ 
13690 
13700 
13710 
13720 
^ 13730 
13740 


101 CONTINUE 13750 

C 13760 

THIS SECTION PR TnT S“The"T!Tle“"'AND HEAPTnO^NFORMA T I ON o 13770 

C 13780 

CALL PAGE tIPD> LI NE 9 IS79 IDT) 13790 

1F“( ILRG" .~EQ*' 0')'"GO' T0'6"07 ' ' “ ““ " “ “ 13800 

WRITE ( I S7 » 5 29 ) 13810 

529 0 FORMAT ( 1H0 9 38X9 38HW INDOW DEFORMATION 9 13820 

1 T H’D" "A T A7IH 9'4'9'X'V'F3KTt7nTGT:'17ETLTTnTaN 'D'AT'AITTR ) T5SW 


GO TO 608 13840 

607 WRITE ( I S7 9 500 ) 13850 

5 0“0'"0 'FORMAT TlH07TH“"9 3"8‘XlT8'h)'VJ”"l M D U~W~ "D" E~'F”0'"R W A “IT "0” N 1W60 

1 7HD A T A/1H } 13870 

608 ICHAP = CHAP 13880 

IF ( i BC sTTEa 1 ) GO TO" 302 13890 

CONC = HING 13900 

CF = CH 13910 

30 2 i‘F 1 TBC~TNET“2l “ GCT~T CT3 0 3 “ 13920 

CONC = CLMP 13930 

CF = CC 13940 

303 GO TO ( 1029 103 9 104’)' 9 ICHAP 13950 

102 0 WRITE < I S7 9 50 1 ) ( RT30 ( I ) 9 I = 1 9 3 ) 9 D I MA 9 RT33 9 D I MB 9 13960 

1 _ RT35* SKAL9 JRT36(I)»I»1»2) 9 THIC* ( RT37 ( I) » I = 1 » 2 ) » NPAN 9 13970 

2" TrT 38 O") ri»l 9 2Trsp-AD7 (RT39TI )~9 1 =1T2 )T P R S S V CO N C > ~C F 13980“ 

501 0 FORMAT (1H0»2A69A1»F5.2*A4»F5*2914X9A69F4.2*3X»A6*A4-9F5.2»A6»A3» 13990 

1 Il9A69A59F3.l92A69F5*l93X9A69Al) 14000 


GO TO 105 


14010 


103 0 WRITE US7»_501) (RT31< I ) » 1 = 1 »3_) > DIMA » RT33* DIMB » _ 14020 

T" "rT 35 » SKAL» ( RT36 ( I ) ’ I - 1 ’ 2 j j THlO ("rT 37 <1 ) » I « 1 » 2 ) » N P A N > 14030 

2 ( RT38 U ) » 1 = 1 >2 ) » SP AD > ( RT 3 9 ( I ) > I =1 » 2 ) » PRSS* CONCj CF 14040 

GO TO 105 14050 

104 0 WRITE < I S7 *518) ( RT32 ( I) » 1 = 1 >3 ) j DIMA* RT33» DIMB? RT34> DIMC* 14060 

1 RT35 > SKAL s (RT36(I ) »I = 1»2) * Tj-lIC* ( RT37 ( I ) » 1 = 1 » 2 ) t NPAN » 14070 

2 (RT38(I)*I=1»2)» SPAD, ( RT 39 ( I ) » I =1 » 2 ) » PRSS, CONC* CF 14000 

5 lF 0 "fORMATTihO 9 “ 2 AF»A 1 j F5 • 2 » AA» F 5 . 2»A4 » F 572 7 5 XT A 6 V F 4 7Z 9 TxTX 6 »" A4 iFfT. 2 » “ “'f 4090 ” 
1 A69A39ll9A69A59F3 # l92A69F5.l93X9A69Al ) 14100 

10 5 WRITE ( I S7 9 505 ) 14110 

50 5 "0 " FORMAT "( 1 H 0 / 1 h ’ * 1 X , 1 1HCCO RD I NaT'FS 9 1 BX , 1 2 rOEr CRMAT I Cf\S 9 14X , 14120 

1 IIHCOORDINATES 9 I 8 X 9 I 2 HDEFORMATIONS/IHO 9 14130 

2 44H X Y DEFL. PANE 1 DEFL. PANE 2 »11X» 14140 

""3 44 H X "" ” Y DEFL7 PANE 1 DEFL.' PANE~2“ ' ~ "") T4T50 

LINE = LINE + 11 14160 

JRM = NGP-2*( NGP/2 ) 14170 

DO 114 K = 1 9 NG P 9 2 14180 

IF (LINE - 45) 11291079107 14190 

JL0 7_ CALL PA GE (IP P9 LINE* IS? * IDT) 14200 

WRITE f I S 7 9 5 0 0 ) ” ' ' ' ~ T'42To ' 

GO To (10891099110)9 ICHAP 14220 

108 0 WRITE ( I S 7 s 50 1 ) (RT30( I ) 9 1 = 1 93 ) 9 DIMA 9 RT33 9 DIMB 9 14230 

_ RT 3 5 9 S KAC* TRTsTTTTTI^TTr ) T T H I c7 T Rl’37 ( I ) * 1 = 1 *2 ! 9 NPANT 14240“ 

2 ( RT38 ( I ) 9 1 = 1 92 ) 9 SP AD , ( RT 39 ( I ) 9 1 =1 9 2 ) 9 PRSS 9 CONC 9 CF 14250 

GO TO 111 14260 

"10 9‘ 0"WR'TiT (‘lSf»T0lT (RT“3lTl) ,r=l9 3)"; D“IMA","RT3"3T D I MBT ~ 14270"’ 

1 RT35 9 SKAL 9 (RT36 ( I ) 9 1 = 1 92 ) 9 THIC 9 ( RT 37 ( I ) 9 1 = 1 9 2 ) 9 NPAN 9 14280 

2 ( RT38 ( I ) 9 1 = 1*2) 9 SPAD, ( RT39 ( I ) 9 1 =1 9 2 ) 9 PRSS 9 CONC 9 CF 14290 

GO TO 111 14300 

110 0 WRITE ( I S 7 9 5 18 ) < RT 3 2 ( I ) 9 I = 1 9 3 ) 9 D I MA 9 RT33 9 D IMB 9 RT349 DIMC 9 14310 

1 RT35 9 SKAL 9 ( RT36( I ) 9 1 = 1 92 ) 9 TH IC 9 ( RT37 ( I > * I = 1 * 2 ) » NPAN 9 14320 

T p T 3 g- rn - jy=1*Z ) T ~S P aEFTTRT 3 91 1 T7 r=T*T71 “PR S5Y " C ONc »TK T VS 3 O' ' 

111 WRITE ( I S7 9 505 ) 14340 

LINE = LINE + 11 14350 

“T12 IF l ( JRM « EQ 0 11 7AND1 Tk” . EQ . NGPTr^O~TO 113 T4360" 

J = K+l 14370 

0 WRITE ( I S7 9 506 ) R(K)» S(K)» T ( K) » DTX ( K ) 14380 

_ -R j-V'TT'Jyr DTXTJT 143'9'0~ 

506 0 FORMAT ( 1H »F5.29F7s2*2(2X*E13.65 *13X 14400 

1 9 F5.2*F7.2*2(2X»E13.6) ) 14410 

' GC TO "114 

113 WRITE (IS 795 O 6 ) R(K ) 9 S ( k ) 9 T(K)* DTX(K) 14430 

U_4 LINE = LINE + 1 __ 14440 

“80 0“ RET URN 14450' 

END 14460 

$ I BFTC MS23D8 14470 

CRAYTRA • ' 14480 




c 


c 


c 


100 


c 


105 


C 

110 


0 DIMENSION ~ CON ( ~ "50 0 ) > X ( 2 2 * 2 2 )" » ~Y 122 i 22 17 ~ W ( 2 2722 ) 7 

1 DWX I 22 » 22 ) > DWY(22>22)j JPN < 500), RTVI 500 ) » R ESI 180 } 


DIMENSION Cl ( 3 ) » DELTAP ( 6)*. CN ( 3 ) > RIf7)» CR(3)» dTJT 


X S a XQ 

ZS = ZQ 

ALPHAI = PLANA 

DELTAN = RAYAN — — ~ — 

DELTAI = ( 90# O-DELTAN) 

U a LP7-1 

IF c npan"7eq7 TT~P rs s~ = “ - ( P RSS ~C PR ssl — 

RESIIJ+ 1) s XS 
R ES ( I J+ 11) a YS 

’ RES ( IJ+ 21) = DELTaIT — 

RES ( I J+ 31 ) = ALPHAI 

D < 1 ) = THIC 

D(2 ) = D ( I ) + SPAD " 

D I 3 ) = D ( 2 > + THIC 
N b NPAN*2 

"WToFT^TTn — — — 

deltapi I } = 1.0 

RAD = 0.017453292519 
' DEG' = "1.0/R~A“D 
SEC = 206264*8064 
PI = 3.141592653 

K '= 1 — 

ZP = 0.0 

_I F_( DELTA_I__ .ME 90 .0 GO TO 105 

C O'M PL ETT" COM PON E' NTS'""o F' I N"cTd Ef7T~RAY 

ALPHAI = ALPHAI#RAD 
DELTAI = DELTAl*RAD 

CI(l) = oTO — 

Cl ( 2 ) a 0.0 
CI( 3? = 1*0 

ALPHAI = ALPHAI*RAD 
DELTA I = DELTA I*RAD 

'ci(l) = cosTdeHITmI^^ — — 

C I ( 2 ) is cosideltai )*SIN(ALPHAI ) 

. C : u 3j_f_SlN.< DELTA I_)_ 

COMPUTE POINT OF~ iTfTERSEC TlON ~DY'i NC Td'ENT ~RA Y' “W IT H ' X Y" 'PLAN E”. ' ' “ 
SIGMAI = (ACOSICI ( 1 ) ) ) 

BETAI = (ACOSICI (2) ) J 

"GAMMA 1 ( 1 ."570796 3 7^- DEL TATT 


14960 
‘ "14970 
14980 
14990 
15000 
15010 
- 15020 
15030 
15040 
15050 
15060 
15070 
15080 
'”"'15090" 
15100 
15110 
15120 
15130 
Jj 5140. 
' 15150 
15160 
15170 
15l80 
15190 
15200 
"T5F210"" 
15220 
15230 
~~T5240~ 
15250 
_15260 
T5'270"~ 
15280 
15290 

15300 

15310 
15320 
" I5T30" 
15340 
15350 
15360 
15370 
15380 
'15390 
15400 
15410 



no n Inn n nsn 


_LE_. LdE-L.TA.N- EQ-* _Q * QJ._.GAtdMAL_.=_.0 *.0. 

XP a XS - ZS*CI (1)/CI (3) 

YP = YS - ZS+CI (2) /Cl (3) 

I BY = 0 


CALL BONDRY (XP, YP > I BY ) 

IF ( I BY o EQ« 1 ) GO TO 800 

calculate intersection of ray with window surface 


CALL ITERAT (XP, Yp, K » DELTAP » Cl* DEL£ ’ OWX, OWY) 


ZP = Zp + delz 

CALCULATE NORMAL TO WINDOW SURFACE 

*ca'll~~no r m al "To w x7“oFyT ~i<7 “' di e LT a p7 "cn ) 

QRI = R I ( K+l ) / R I ( K ) 


CALCULATE REFRACTED RAY IN NEXT MEDIUM* 


CALL REFRCI 


ISO) 


(N-K) 
= xp 


130*130,120 


J5A30. 

15440 

15450 

15460 


15470 

15471 
1_5480 
'1 5 49 O' 
15500 
15510 


15520 
15530 
15540 
T 5 5 5 O'" 
15560 
15570 


15580 

15590 

15600 

'15610' 

15620 

15630 


h-* 



~~T61TYp — 

ZS = Zp - D ( K ) 

DO 125 1=1,3 



' 15640 

15650 

15660 


H 3 


125 

Cl x n = CRTH 



15610 





ZP = D( K ) 



15680 





K = K+l 



15690 



GO TO 115 
CALL BONDRY 
TF X I3Y :eq~ 
RES ( I J+ 41 ) 
RES( IJ+ 51) 


= -( 


(XP, YP, I BY ) 

1 ) “GO TO *8* O' 0* 
= ZP 
= OWX 


0 

1571 

1572 
*1573 

1574 

1575 





RES ( I J+ 61 ) = OWY 

CRPI = COS(BETAI )*CR(3) - COS ( GAMMA I 5 *CR ( 2 ) 
CRPJ = COS ( GAMMA I ) *CR ( 1 ) - COS ( S I GMA I ) *CR ( 3 ) 

15760 

15770 

15780 



c - R p K --„ ~~ c Qg- ("STGI^TCn >”CRT 2 ') ~~ ~C OSTB ETA I 7 T*C R TT )' 
CROSSR = SORT (CRPI**2 + CRPJ**2 + CRPK**2) 
DELINC = AS I N ( CROSSR ) *SEC 

” " " 15770"" * 

15800 

15810 



TEM = SORT (CR(1)**2 + CR 

(25**2 ) 

15820 



DELTAR = ACOS(loO) 


15830 



IF (TEM .LT. 1.0) DELTAR : 

= ACOS(TEM) 

15840 



DELTAM = (90. 0*RAD - DELTAR) 

15850 



IF ( CR ( 1 ) *NE. 0.0 ) GO TO 

361 

15860 



alphar = o.o 


15870 



GO TO 362 


15880 




ulu uu 



RETURN 16101 
END 16110 


SIBFTC MS23D9 16120 

a TER AT” ' ' 161 3 0 

SUBROUTINE ITERAT (XP> YP» K» DELTAPj CI» DELZ, 0WX> OWY) 16140 

16150 


THIS SUBROUTINE PERFORMS THE ITERATION TO FIND THE POINT XPjYP ON 16160 
THE DEFORMED SURFACE. 16170 

16180 

COMMON DUM " 1 619 O' 

0 EQUIVALENCE ( DUM ( 1)» CON) 16200 

0 EQUIVALENCE (CON( 1), DIMA ) > (CON( 2) > PI MB) 16210 


C 16220 

DIMENSION Cl ( 3 ) » DELTAP ( 6) 16230 

C __ __ 16240 

DELTAA * 0 o 0 16260 

101 CALL INCOTB (XP, YP, OWF, OWX , OWY , K) 16270 


DEL.Z = 0 w F ^ D E L TA P (K ) , 16280 

A = (DELZ - DELTAA#CI (3) ) *C I (3) 16290 

IF ( ABS ( A ) - 1.0E-06) 800,800,102 __ __ 16300 

102 DELTAA = "DELTAA + " A “16310 ~ 

XP = XP + A*C I ( 1 ) 16320 

YP = YP + A*CI(2) 16330 




DI-MB-2-.-^-DI-MB- — -..163 50.. 

IB Y=0 16360 

CALL BONDRY (XP 9 YP 9 IBY) 16370 

D I MA=D I MA/2 » 16380 

DI MB=DIMB/2« 16390 

IF(IBY.EQ.l) GO TO 800 164-00 

_ J = _J+1 __ 16410 

_ ----- jj^r^orrrooTsod- ~ ~ 1 6 4-20 

800 RETURN 164-30 

END 16440 

SIBFTC MS23E0 16450 

CINCOTB 16460 

SUBROUTINE INCOTB ( X P 9 YP 9 OWF» OWX 5 OWYs L) _ 16470 

c " 16480“ 

c THIS SUBROUTINE GENERATES the table OF INTERPOLATION COEFFICIENTS 16490 

C 16500 

DOUBLE PRECISION A 9 BR 9 A1 9 A2 9 A3 9 A4 16510 “ 

C 16520 

COMMON DUM 16530 

C " " ~ ” ” ”16" 5 40 

0 EQUIVALENCE (DUM( 1)9 CON ) 9 (DUM( 501)9 X)» 16550 

1 ( DUM (1501) 9 W) 9 ( DUM (2251) » DWX ) 9 16560 

2 rDTMT3TT0l ) 9 JPN) 9 H3UMT 3 5 0 1 ) 1 R TV j 16570 

3 » (DUM(4001) 9 BR) 9<DUM<6100) »B) 16580 

C 16590 

U~EWIYAXTRCE RfoTT f I T YTT ffiWT? TC 0" NT 2 'Y 9~""TJT MBT V" — 1“6W0 

1 ( CON ( 3)9 DIMC)9 ( CON ( 4)9 DED 9 (CON( 5)9 GNU ) 9 16610 

2 ( CON ( 6)9 THIC )9 ( CON ( 7)9 SpAD ) 9 (CON( 8)9 PRSS )9 16620 

— ■ 3 rcoNi — oTrrrFTvNTi rrorrr'TUTi — rsm rnmrrrn "toi o : 

4 ( CON ( 12)9 IBC )9 ( CON ( 13)9 NGP ) 9 (CON( 14)9 LP7)9 16640 

5 ( CON ( 15)9 FR)9 (CON( 16)9 LOCP)9 (CON( 17)9 I PD > 9 16650 

. rsrr — tprtt (coni IT) 9 "cmpiT” rcmrr 2 "o rn s'critv T6"66o 

7 (CONI 21)9 ISCR2 ) 9 ( CON ( 22)9 SKAU 9 (CONI 23)9 ISEC) s 16670 

8 (CONI 24)9 NPAG)9 (CON( 25)9 YONG)9 (CON( 26)9 ILGD)9 16680 

9 ( COM ( 27)> IREL)9 (CON( 28)9 LP5)9 (CON( 29)9CPRSS) 16690 

C 16700 

0 EQUIVALENCE ( CON ( 30)9 IRM)9 (CONI 31 ) 9 IPB)» 16710 

■ — r -rcoiT( "T 2 T 9 ” MTBP'71 "( CON (~ ‘S3TT ~TWDT7 TCON C""3T)T "I DST 9 1 6770 

2 ( CON ( 53)9 SCAL 5 » (CON( 61)9 SPAC)9 (CON( 69)9 PRES)9 16730 

3 ( CON ( 77)9 PLNA)9 (CONI 85)9 RAYA ) 9 (CON( 93)9 RI ) 9 16740 

( C cn ( 101 ) » RES ) 9 TcWTTrSTT^TATTT ftON( 371 ) 9 oTF ) > ‘ TS7*5o 

5 ( CON ( 401 ) 9 EANDF ) 9 ( CON ( 451 ) 9 RHS ) 16760 

C 16770 

0‘TQUl VALENCE'" " ( R TV , B 1 1" 9 ( 0"l"F J if 9 N D X”) ' 9 " ( 0 1 F T 2 ) 9 N D Y 1 " 9 ’ (XI 9 0TF"( 3 ) )'■> ” 16780 

1 ( Yi 9 0 1 F ( 4 ) ) 9 ( 0 I Ft 5 ) 9 CONST 1 ) 9 ( 0 1 F ( 6) 9 CONST 2) 9 ( 0 1 F ( 7 ) 9 CONST 3 ) 9 16790 

2 ( 0 1 F ( 8 ) 9 C0NST4 ) 9 ( 0 1 F ( 9 ) 9 CONST 5 ) 9 ( 0 1 F ( 10 ) 9 CONST 6 ) ‘ 16800 

C T6BT0 


O^DIMENSI ON __ CON ( _500J_» X ( 2 1_> 33 ) > 

i ~”OWX Tz i> 33) 9 j] PN ( 500) »RTV (5 66 ) ", 0 IF (Yd I 

DIMENSION A( 25 ) ,BR(32 >32 ) »B ( 36? 25 ) ,WC( 

1 > A 1 ( 2 5 > 2 ) > A 2 ( 2 5 > 2 ) > A 3 ( 2 5 > 2 ) > A4 ( 3 2 > 2 ) 

_ DA T A _ PJV3 o 14 1 59265/ 

JUMP- 5 

IF(M IBP)304>304,400 

304 ICHAP = CHAP 
JUMP= 1 

X1P =X1 

YlPaYl " “ 

GO TO ( 20 >40 >60 ) > ICHAP 
20 I DX=5 

I DY = 5 — 

GO TO 309 
40 IDX=DIMA 

IDX=I DX/2 ' 

IDYsDIMB 
I DY= I dY / 2 


W(21 >33) > 


36 > 2 ) 


I F ( I DY • LT * 5 ) I DY = 5 
GO TO 309 

"60 IDX"=NDX " 

IDY=NDY 

IF ( IDX.LT.5 ) GO TO 306 
IFTidY.LT. 5) GO TO “306“ 

GO TO 311 

306 WR ITE ( ISO >307 ) 

307 "FORMAT" ( iTTo >~ 7 8H I N T ERPOl AT I ON'TAILS" 

1 IN THE X OR Y DIRECTION* ) 

STOP 

''309 IF ( IDX.GTTToI fDX=IDX/2 “ 

IFtIDY.GT.10) IDY=IDY/2 
311 CONTINUE 

dtx'=idX" — 

dtx=dtx*del 

dty=idy 

dTT^dTTOeI — — — — 

DO 300 11=1,4 

GOTO (310,318 >314,322) > II 

310 13 = f DY+l 

12=13-5 

J3=IPX+1 

2=J3 „ 5 ~ 


GRID" HATS’ LESS T H A N " S I X’ "NOD ES” 


115 


-43O-TO-S0-&— — 

12=1 DY+1 
13=12+5 
J3=IDX+1 
J2 =J 3-5 
GO TO 308 
I 3 = I D Y+JL 
12=13-5 
J2= I DX+1 
J3=J2+5 
GO TO 308 
1 2 = 1 DY+1 
13= 12+5 

J2 = I DX+1 

J3=J2+5 1 

continue 

AA=DIMA/2« 

BB=DIMB/2. 

DO_ 2°0 J.= l_>_36 _ 
"DO 200 J=lT25 
B ( I »J) = 0.0 

K = 0 

DO 202 J = J2 > J3 
EJ=J 

DO 202 I = 1 2 > I 3 
K~"= K+T 
E I = I 

U=DEL*(EJ-1. J-X1P 


( (J-K-K4 
( LHHt-4 

T0**3" 

( U**4 
( U**3 ! 


mamn 

¥m 

B(K» 

i) 

B (K» 

2) 

B^K? 

3) 

B(K» 

4) 

B (K» 

5) 

B ( k' T 
B <K» 

6) 

7) 

B < K s 

8 ) 

btk» 

B ( K > 

ST 

10) 

B < K s 

11) 


( K ) 

B tK* 13) = 
B ( K s 14 ) = 
bTk;15) = 
B < K » 16 ) = 
B ( K * 17 ) = 


B ( K > 1 8 ) = 


( U W--JJ-4 
(U4^3; 

1 VW*T. 

(U 

TOW 

t u**2 : 
_<_u_ 

<u*#3: 

<U**2! 


(u : 



B t K » 1 9 ) = <V**3J . _ 

B ( K > 20 ) = (0^*2) 17750 

B ( K > 2 1 ) = (U )*<V ) 17760 

B (K * 22 ) = (V#*2> 17770 

B ( K > 23 ) = (U ) • 17780 

B ( K > 24 ) = (V ) ’ 17790 

B<K>25) = 1.0 __ _ _ „11 8 00 

wc (KVi)=w n s jt " ~ ' ~ " ” T78fo 

WC ( K > 2 ) =DWX ( I > J ) 17820 

I F ( ILRG.NE.1 ) GO TO 201 17830 

WC(K»l)a0.5#(W( I tJ)*CONST2*(A'BS(CONSTl/CONST2) ) +CONST3*COS { p I*U/ 17840 

1 {AA*2.n*COS(PI*V/(BB#2.) M 17850 

I F ( NPAN « NE • 2 ) GO TO 20l 17860 

V/cTk * 1 ) = 0". 5* ( W{ I > J ) ^CONSTS - * ( ABSTcONSTi/COliST 5 ) ) + ”178 70” 

1 CONST6*COS(PI*U/(AA*2# ) )*C0S(PI#V/(BB#2* M ) 17880 

WC(K»2) g Q.5*(W( I »J)*C0NST2*( ABS ( CONST 1 /C0NST2 ) ) +CQNST3*CQS ( PI»U/ 17890 

1 (AA*2.) )*C0S(PI*V/(BB*2 .) ) ) 17900 

201 I F ( ABS ( X ( I >J)“*X1P-U)-1. OE-7 )202>202>206 17910 

206 DO 210 LM=1 »25 ■ 17920 

' 210 B~<K7LMT=0. 17930 

202 CONTINUE 17940 

DO 240 K~ 1 » 2 17950 

DO 240 I =1 >25 17960 

£* A4 < I > K ) = 0 o 17970 

£ DO 240 J = 1 > 36 17980 

~2T6 A 4 "("T > K) = A4“( I~> kT+B ( J~> I ) -KWc ( J s K )" "17990 

C 18000 

C= = = = = THIS SECTION MULTIPLIES THE COEFFICIENT MATRIX BY ITS TRANSPOSE 18010 

C 18020 

DO 124 I = 1 > 25 18030 

DO 124 J = 1 > 25 18040 

Trf 1TJr ~- -pj ro - “T8“0"5“0 

DO 124 K=1 >36 18060 

124 BR ( I » J ) = BR(I>J) + B ( K > I ) *B ( K > J ) 18070 

’ ' * ” ' 18080 

c===== this section inverts the intermediate matrix. 18090 

__C = = = = = _THIS SECTlOj^ CALCULATES THE COEFFICIENTS.^ __ __ 18100 

NR = 25 18120 

NC=2 ' 18130 

SEQ s (BR>A4>NR»NCl rsrzrg 

DO 280 I = 1 > 25 18150 

GO TO (260>264>268>300) >11 18160 

' . 2 60" AiTl >lT=A4 HI if " ~~ " ~ 18170 

Al { I >2)=A4( I >2 ) 18180 

GO TO 280 18190 

264 A2 l I >1 ) =A4 < I >1) 


18200 







_£ JlH4^--S-UgRC)UX--LWE-~F.-mDS_LidE„JM.0RHAL. IQ__IH£ .SURF-ACE... .19 ISO 

c 19160 

DIMENSION CN ( 3 ) » DELTAP ( 65 19170 

C 19180 

AMAG = SQRT ((0WX**2 + 0WY**2 )*< DELTAP ( K 5**2 ) +1.0) 19190 

CN ( 1 ) = (-DELTAP (K)*OWX) /AMAG 19200 

CN(2) = (-DELTAP (K)^OWY) /AMAG 19210 

C N( 3 .0/ AMAG ' i 9 2 2*0 

800 RETURN 19230 

END 19240 

SIBFTC MS23E2 19250 

CREFRCI 19260 

SUBROUT INE REF RCI (Cl » CN, QRI , CR, ISO) _ 19270 

C 19280 

C THIS SUBROUTINE CALCULATES NEW DIRECTION OF RAY UPON ENTERING 19290 

C NEW MEDIA. ,19300 

C 19310 

DIMENSION C I ( 3 5 j CN ( 3 ) » CR ( 3 ) 19320 

DOTP = 0.0 19330 

DO 1 OT I~= 1 ,3 ' 19340 

101 DOTP = DOTP + CI(I)*CN(I> 19350 

ROOT = QRI**2 -1.0 + DOTP**2 19360 

I F fROOT") 103 > 105 > 10 5 19370 

103 ROUT = 0.0 19380 

WRITE ( I SO » 50 0 ) ROOT 19390 

50 0 “FO R~M A '1~ TlH 07 6 HR 0 0 T = “VeI 6~«8 /" f '* ‘ "“19400 

GO TO 107 19410 

105 ROUT = SQRT (ROOT) 19420 

107 DO" 109“WT3 19430 

109 CR ( I ) = (CHI) + ( ROUT-DOTP )*CN( I ) ) /QRI 19440 

800 RETURN 19450 

END “ ~ 19460 " 

SIBFTC MS23E3 - 19470 

CRESPRT 19480 

SUBROUTINE RESPRT ( I RT , NOPRT! 19490 

C 19500 

C THIS SUBROUTINE PRINTS THE RESULTS OBTAINED BY THE RAYTRA PROG. 19510 

C ~ 19 520 

COMMON DUM 19530 

C 19540 

0 EQUIVALENCE (DUM( 1)» COlTH (DUM( 501 ) , ' X )T~~" 19550 

1 ( DUM ( 1001 ) 9 Y ) > ( DUM ( 1501 ) » W), (DUM<2001), DWX ) , 19560 

2 ( DUM ( 2501 ) , DWY ) , (DUM(3001), JPN), (DUM(3501)> RTV) ’ 19570 

C~ 1 95 80 " 

0 EQUIVALENCE (CON( 1), DIMA) , (CON( 2)» DIMB), 19590 

1 ( CON ( 3 )> DIMC)» ( CON ( 4), DEL ) , (CON( 5), GNU), 19600 

2 ( CON ( 6 } , THIC), (CON ( 7), SPAD), (CON( 8), PRSS), 19610 





3 

! CON ( 9) > NPAN) > 

( CON ( 

10) , 

ISI ) , 

( CON ( 

11) > ISO)) 

19620 


4 

(C0N( 12)> I BC ) » 

( CON ( 

13) , 

NGP ) ) 

( CON ( 

14)) LP7)» 

19630 


5 

£ CON C 1 5 ) > FR ) > 

( CON ( 

16) ) 

LOCP ) ) 

( CON £ 

17)) I PD ) ) 

19640 


6 

( CON ( 18)) IPR)> 

( CON ( 

19) ) 

CHAP) ) 

( CON £ 

20) )ISCR1 ) ) 

19650 


7 

£ CON £ 21) » I SCR2 ) ) 

( CON ( 

22) ) 

SKAL) ) 

( CON £ 

23 5 ) I SEC ) ) 

19660 


8 

( CON ( 24) ) NPAG) ) 

£ CON ( 

25) » 

YONG) ) 

( CON £ 

26 )) I LGD ) ) 

19670 


9 

( CON ( 27)) IREL)) 

( CON ( 

* 

CO 

<\i 

LP5 ) ) 

( CON ( 

29) ) C PRSS ) 

19680 

c 








19690 


0 

EQUIVALENCE 

(CONt 

30) , 

IRM) ) 

( CON ( 

31 ) ) IPB) ) 

19700 


1 

( CON ( 53 ) ) SCAL) ) 

( CON £ 

61) ) 

SPAC) ) 

( CON ( 

69 ) ) PRES ) ) 

19710 


2 

( CON ( 77)) PLNA)) 

( CON { 

85) ) 

RAYA) ) 

( CON ( 

93 ) > R I ) ) 

19720 


3 

t CON (101) ) RES)) 

( CON (315) , 

STAT) ) 

( CON ( 371 ) » OIF)) 

19730 


4 

( CON £ 401 ) >EANDF) ) 

( CON (451) ) 

RHS) 



19740 

c 








19750 


0 

EQUIVALENCE 

( STAT ( 

1) ) 

NMP) ) 

(STAT( 

9)) AVG)) 

19760 


1 

t ST AT £ 2 5 ) ) AVS)) 

(STAT (41) ) 

AMN) ) 

( ST AT ( 49 ) ) STd) 

19770 

c 








19780 


EQUIVALENCE ( CON ( 33 ) ) I TEST ) 





19790 

c 








19800 


0 

DIMENSION RT 10 ( 3 ) 

) RT20(5 ) ) 

RT30 (3 ) ) RT 36 ( 2 ) 

) RT 37 ( 2 ) ) 

19810 


1 

R T 3 8 C 2 ) ) RT39 ( 2) ) 

RT3K35 ) RT32 ( 3 

) )s RES ( 200 ) ) 

PLNA £ 

8) ) AMN ( 8) ) 

19820 


2 

STD ( 8) ) NMP ( 8 ) 






19830 


(— » 

ND 

O 

c 

c 


data 

RT20(l)/27HR AY TRACE DATA/ 


19840 

19850 

19860 





0 

data 

RT30 ( 1 ) /13HELLIPSE A=/) RT31 ( 1 ) /13HRECTANGLE A=/) 


19870 



* 


1 


RT32 t 1 ) /13HTRAPEZOID A = /) RT33/4H B=/) RT34/4H C =/) 


19880 





2 


RT3 5/6HSCALE = / ) RT36 £ 1 ) / 10HTH I CKNESS = / , 


19890 




4 RT39(1)/12H PRESSURE^/ 

Ff NG?6 ”HITTng'EDT rTH71TT TT C I M P” 76 HC LAMPl E/T”'CC7 TH D 7 ' 

DATA RT40/4HX = /? RT41/4HY = /» RT42/4HD1 =/ 


19910 

19_9_20 

Y9~930~ 

19940 

19950 


C 








19960 


0 

DATA RT50/6HA1 

/ ? 

RT51/4HDEGo/) 

RT52/6HXOUT 

/ 9 

RT53/4H IN./) 

19970 


1 

RT54/6HYOUT 

/ 9 

RT55/4H IN,*/) 

RT56/6HZOUT 

/) 

RT57/4H IN./) 

19980 


2 

RT58/6HA20UT 

/) 

RT59/4HDEG./) 

RT 60? 6HD20UT 

/) 

RT61/4HDEG./) 

19990 


3 

RT62/6HA1-A2 

/ 9 

RT63/4HSEC fc /» 

RT 64/ 6HD1-D2 

/) 

RT65/4HSEC./) 

20000 


4 

RT66/6HTHETA 

/ 5 

RT67/4HSEC 0 /) 

RT68/6HI THE 

/ ) 

1276 9/ 4H"SEC. / ) 

2 o o i o 


5 

RT70/6HJTHE 

/ ) 

RT71/4HSEC./ ) 

RT72/ 6HK.THE 

/ ) 

RT73/4HSEC./ 

20020 

C 








20030 

c 


iNfTiALrZE IND'EXES 

« 





20040 


C 


IS10=10 


20050 

20060 

~2W70“ 





n no 


I„S9~.I-SCR2-El 

IF { NOPRT . EQ 4 0) IS8 = ISCR2 
IF (NOPRT .EOi 0) IS9 = IS8 + 1 
I CHAP = CHAP 

tF ( IBC .NE. 1) GO TO 102 
CONC = HING 
_ _ _ C F CH 

102 IF "( fBC“NE~."I[ GO TO 104 
CONC = CLMP 
CF = CC 

104 GO TO (106*140) * ISEC 
306 MPRT a NOPRT + 1 

___60 TO ( 10 8*12 8*800 ) * MPRT 

108" ~ GO " TO Til 0* lT6» _ ll6T~116 ) »~T0CP' 
110 LOCP = 2 


20 08 0 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 





THIS SECTION PRINTS THE RAY TRACE RESULTS ON TAPE 8 20240 

20250 

CALL PAGE (JPR* LINE? IS8? IRT) 20260 

"1/TR"fTE""( fS'8?5W) rT™2 0 ~ ~ 20 270 

500 FORMAT (1H ?46Xj4A6?A3) 20280 

GO TO (112? 113? 114)? ICHAP 20290 






uiuu ! i f -1 t I I i I | uluu 


5 RT66»RT67» ( RES ( I ) 9 I = 141 9 148 ) 9 RT68>RT69> ( RES ( I ) » I = 15 1 » 158 ) » 20550 

6~ rT 7 “oTrT 7 rn RESi I) »f=16l 9 168 H^rTT? » RT7"3 »”1 RES ( T)7l'=iil »178) 20560 

504 0 FORMAT ( 1 H » A6 >A4» 8F13o6/lH > A6 s A4 > 8F13 a 6/1H j A6 » A4 9 8F 1 3 » 6/ 20570 

1 1H jA6?A4j8F13»6/1H , A6 , A4 » 8 F 13 6 6/1 H > A6 » A4 » 8F 1 3 . 6/ 20580 


2 1H > A6 > A4 s 8 El 3 « 4/ 1H j A 6* A4» 8E13 t4/lH » A6 » A4 » 8E 1 3 • 4/ 20590 

3 1H 5A6>A4!.8F13»6/1H > A6 9 A4 » 8F13 » 6/1H » A6 » A4 » 8F 13 • 6 ) 20600 

20610 


THirSECTiON' PRINTS'" THE RAT TRACE "RESULTS ON TAPE 9 20620 

20630 

MOCP = LOCP - 1 . 20640 


IF (MOCP o EQ< 1) NOCP = 1 ‘ 20650 

IF (MOCP .EQs 2) NOCP = 2 20660 

IF (MOCP « EQ • 3) NOCP = 1 20670 

TF (MOCP • EOT - 4 f~NOC P ”2 “ * 20680 

119 GO TO ( 120 9 125 ) > NOCP 20690 

120 CALL PAGE (IPB» LIME? IS9> IRT) 20700 


WRITE (IS9) (RT20(I)» 1 = 1 > 5 ) 20710 

GO TO ( 122»123»124) » ICHAP 20720 

122 O WRITE <IS9) ( RT30 ( I ) 9 I =1 »3 ) » D I MA 9 RT33? D IMB 9 RT34» DIMC» 20730 

! _ ' “ R T _ 3 5~ 9”~Si< aT.9 (r"T3 6"( I } 9 f » 1 ,2'rrTH I C , '1 R”T3 7 (1 )\ f=lT2 )7 _ NPAN» 20740 

2 (RT38( I ) » 1 = 1 >2) » Sp AD j (RT 39 C I 1 »I=1»2) » PRSS 9 CONC > CF 20750 

GO TO 125 20760 


12 3 0 WRITE ("I 39) ( R T 3 i ( TTTT=T7Tn DTMA 9 RT33 7 D I MB 7 R T 3 4 TdTMCT ZOTTO 

1 RT35 9 SKAL 9 (RT36U ) 9 I = l ? 2) 9 TH I C 9 ( RT37 ( I ) 9 1 = 1 9 2 ) 9 NPAN 9 20780 

2 (RT38( I ) 9 1 = 192) 9 SPAD, ( RT 39 ( I ) 9 1 =1 9 2 ) 9 PRSS 9 CONC 9 CF 20790 

go" To I 25 “ " 20800 

124 0 WRITE (IS9) ( RT32 ( I ) 9 I = 1 9 3 ) 9 DI MA 9 RT33 9 DIMB 9 RT34 9 DIMC 9 20810 

1 RT35 9 SKAL 9 ( RT36 ( I ) 9 I = 1 92 ) 9 TH I C 9 ( RT37 ( I ) » 1 = 1 9 2 ) 9 NPAN 9 20820 


2 ( RT38 ( I ) 9 1 = 1 9 2 ) 9 SPAD, ( RT 39 (I ) 9 I = 1 9 2 ) 9 PRSS, CONC 9 CF 20830 

125 WRITE <IS9) RT 4 O 9 RES ( 1 ) 9 RT 4 I 9 RES ( 11 ) 9 RT429 RES ( 21 J 20840 

127 0 WRITE ( IS9) 20850 

-— R ^ 5 o 9 ~p T ' 5 1 „ " ( r e 5 ( I ~) “9 T= "3 T 9 "~3 8 ) RT 52 9 R T"5 3 9 (ITEST I" )" 7T = 71 9 78 )T 20860 

2 RT549RT 559 ( RES ( I ) 9 1 = 81 9 88 ) 9 RT56 9RT57 9 (RES(I)»I= 91 , 98)9 20870 

3 RT58 9RT59 9 ( RES ( I ) 9 1 = 101 9 108 ) 9 RT 6 O 9 RT 6 I 9 ( RES ( I) 9l = lll»118) 9 20880 


4 RT62 9RT639 ( RES (I ) 9 1 = 121 9 128 ) 9 RT649RT65 9 ( RES ( I ) 9 1 = 131 9138 ) 9 20890 

.5 RT 669 RT 679 ( RES < I ) 9 1 = 1419148) 9 RT 689 RT 699 (RES( I ) ,1 = 1519158) 9 20900 

6 RT70 9RF719 (RES( I ) 9 1 = 161 ,168) 9 RT72 9RT73 9 ( RES ( I ) 9 1 = 171 9178 ) 20910 

“I F”-( LOCF”. EQT" 5T”LOCP""= "1 " “ " 20920" 

GO TO 800 20930 

20940 


THIS SECTION PRINTS THE RAY TRACE RESULTS ON TAPE 6 20950 

20960 

128 „G° _Tq_ ( 130 9l36)__9 LOCP __ __ _ __ 20970 

13 0 NOC“p=L6CP "" ~ 20980 

LOCP = 2 20990 

CALL PAGE (IPR» LI NE 9 IS 89 IRT) 21000 


WRITE (158,510) RT20 21010 














124 


GO JO 148 _ 

lTTT WRI m fSQT 502 r ( RT 3 2(1 ')% I =lT 3 ) V DIM A » "RT 33 »" D'lMB » " RT P“»~D i MC’ » 

1 RT35j SKAL» (RT36(I)»I = 1»2)» THIC 5 ( RT37 ( I ) » 1 = 1 » 2 ) > NPAN » 

2 (RT38(I ) 9 1 = 1 > 2 ) , SP AD, ( RT39 ( I > 1 1 =1 >2 ) » PRSS, CONC> CF 


148 WRITE ( ISO, 548 ) RES( 21 ) ' 

548 FORMAT (1H0»48X»17HRAY ANGLE (Dl) = »F6.2»5H DEG.) 

WRITE ( ISQ L __549)__ 

549 FORMAT ( i hi 07 4 7H P L A N E ' A N G L E * M~EAN ‘ "RMS NO* POINTS)" 

0 WRITE (ISQ„550) (PLNA(I)> AMN ( I ) » STD(I)j NMP ( I ) > I=1 5 NPAG) 

550 FORMAT aH0»F7*l»6X»Ell*4>2X»E11.4»6X»l3) 

I F ( I TEST # EQ *0 ) GO TO 800 

WRITE ( I SQ >551 ) 

551 FORMAT(1HO»60HNOTE - THE ABOVE SUMMATION DATA WAS CALCULATED BASED 

1 ONLY ON / 8 X '» 54 HPO f NT S"T N T HE "FIRST QUADRA NT 0 F T L LI P S E S“ OR” R~EC T A NG 
2LES/8X»45H0R ON POINTS IN THE FIRST HALF OF TRAPEZOIDS.) 

800 RETURN 


END 

SIRFTC MS23E4 ) 

C MEN RMS 

SUBROUTINE "me"nRMS "" ' 

c 

DOUBLE PRECISION A VG 5 AVS > VAL » CON2 


COMMON DUM 

'eqTivaTencF 

(DUM(lOOl) , 

( DUM( 2501) » 

EQUIVALENCE 


Y) 

DWY) 


( CON ( 
1 CONI' 
(CONI 
( COM ( 

( CON ( 

( CON ( 

( CON < 
TconT 

( CON ( 


3 J D I M CJ » 

— 6 T> ThTC) »“ 

9 ) » NPAN f > 
12 ) » I BC) » 
15)s FR)? 
18) » I PR ) * 
21 )_»ISCR2 
"247 » 'N'PAG" 

27 5 » IREL: 


<DUM( 1)5 
(DUM ( 1501 ) > 
(DUM( 3001 ) 5 

( CON ( 1) , I 

(JON ( 4J 
"(CONI ' 7") 

( CON ( 10), 

( CON ( 13), 

( CON ( 16)51 
( CON ( 19), i 
(CON( 22)5 : 

"(coir 2f5T,~ ' 

( CON ( 28)5 


5 CON)' 

5 W) 

> JPN ) 

DIMA) 

DEL) 

"SpadT 

ISI ) 
NGP ) 
LOCP ) 
CHAP) 
SKAL) 
YONG) 
LP5) 


TbUM("'5~6X>T ' xf 
(DUM (2001) , DWX) 

( DUM (3501 ) 5 RTV) 


( CON ( 53)5 SCAL) 5 
( CON ( 77)5 PLNA)_5 
(CON (101)5 "RES) 7 
( CON (401) 5EANDF1 5 


( CON ( 61)5 
( CON ( 8 5 )_5 

Icon Ci iB") 5 ' 
( CON (451 ) 5 


SPAC) 5 
RAYA ) 5 
"ST AT") 7 
RHS) 


( CON ( 

{ CON ( 

Tcour 

! CON ( 

( CON ( 

( CON ( 

( CON ( 

( CON ( 

TCONT ' 
( CON ( 


( CON ( 
( CON ( 


2 ) 5 DIMS ) 5 
5 ) 5 GNU ) 5 
"~8)'V RrTSTT 

11)5 I SO) 5 

14)5 LP7 ) » 
17)5 I PD ) 5 
20) 5 ISCR 1 ) 5 
23J, I SEC >5 
26 ) 5 " TLGDT 5 " 
29) 5 CPRSS ) 


(CON737T) » 


PRES ) 5 
R I ) 5 
' "0 IF ) 9 


2150 

"21510 

21520 

21530 


21540 
21550 
21560 
'"21570 
21580 
21590 
21600 
21610 
21620 
'21'6‘30 
21640 
21650 
21660 
21670 
216 8 0_ 
'21690 
21700 
21710 
21720 
21730 
21740 
"2X750 
21760 
21770 
21780 
21790 
21800 
' 2X8X0" 
21820 
21830 
21840 
21850 
21860 
2'18"70“ 
21880 
21890 
21900" 
21910 
21920 
21930" 
21940 
21950 


o n i on i non non 


i~ JLS I-A-T- L2-5..)-s~ - A.VS.U. LSTAX ( A MM 1 ? J.§IAI L45J.1 _._SJp_} 

EQUIVALENCE (CON (33) » I TEST) , ( 01 F( 11 ) ,N2 ) 


DIMENSION NMP ( 8)> AVG( 8), AVS ( 8)» AMN ( 8)» STD( 8)> RES(180) 
XS = XIM__ __ __ __ 

Vs' = Yin" 

XP = XOUT 
YP = YOUT 


XXX=1. 

I F ( N2 o EQ <» 2 ) XXX = Oo 

g o " T 6"~ ( l’o 1 Tub TV T s ec ' ' " 

1 DO 109 I = 1 s NPAG 
IJ = 1-1 


XS = RES { I J4- 1) 

YS = RES(IJ+ 11) 

XP = RES ( I J+ 71) 

'YP's' RES (I J+~ 81") ~ " " 

i chap = chap 

GO TO (102*103*104) s ICHAP 


IS POINT MORE 
A = DIMA/2.0 
D i mb/2.0 


THAN 


INCH INSIDE ELLIPSE BOUNDARY 


IF (XS .GT. A) GO TO 109 
IF (YS a GT a B) GO TO 109 


R I( l«U-l Yo**2/ ( B*B ) ) ) 
YLIM = B*SQRT(1.0-(XS**2/(A*A) >) 
IF (XS .GT. ( XL I M—l a 0 ) ) GO TO 109 
I rr?S YOT „ TYLTM-no)')" go 'TCTT09 
IF (XP oGT. a) GO To 109 
IF (YP .GT. B) GO TO 109 


XLIM = A*SQRT ( 1.0-(YP**2/ ( B*B > ) ) 
YLIM = B*SQRT( 1.0-(XP**2/ (A*A) ) ) 
IF (XP .GT. (XLIM-1.0)) GO TO 109 
TF - yp-7G T (TlTM -T; 0")")" ' 'CO ' TO” TO 9 
GO TO 108 


IS POINT MORE THAN 1 INCH INSIDE RECTANGLE BOUNDARY 
A = DIMA/2.0 
B _= DIMB/2.0 

TfYxs Vgt „ ( a-YoOT) go to" 169 “ 

IF (YS . GT a ( B“1 . 0 ) ) GO TO 109 
IF (XP a GT » (A-1.0)) GO TO 109 


IF (YP .GT. (B-1.0)) GO TO 109 


21970. 

21980 

21990 

22000 


22010 
22020 
_2 2 0 3 0 
22040 
22050 
22060 


22070 
22080 
220_9_0 
~2 2100 
22110 
22120 


22130 

22140 

_22150 

22“160“ 

22170 

22180 


22190 

22200 

22210 

*T2‘22(5* 

22230 

22240 


22250 

22260 

22270 

2 “ 2 " 280 " 

22290 

22300 


22310 

22320 

22330 

2'23"4"d" 

22350 

22360 


22370 

22380 

22390 

22-400 

22410 

22420 


22430 













I F ( I • E n i 2 ) 1=4 - 

.„.22910„ . . j;. 

22920 
22930 
' 22940 


I F ( I * Eq® 3 ) J = 3 
IFU.EQ.4) J-2 
I F { I # EQ» 5 ) J = 1 


I F ( I • EQ# 6 ) J = 8 

22950 


I F ( I <s EQ# 7 ) J = 7 

22960 


I F ( I # EQ# 8 ) J = 6 

22970 


NMP ( J ) =NMP ( J ) + 1 

22980 


AVG( J)=AVG(J)+RES1 

22990 


AVS( J)=AVS( J)+RES2 

23000 

116 

I F ( ICHAP.EQ#3) GO TO 109 

23010 


I F < YS.EQoO, ) GO TO 109 

23020 


IF(I.EO.l) J = 5 

23030 


IF( I.EG.2) J=6 

23040 


I F ( I « EQ# 3 ) J = 7 

23050 


I F ( I # EQ# 4 ) J = 8 

23060 


I F ( I # EQ » 5 ) J = 1 

23070 


I F ( I « EQ. 6 ) J = 2 

23080 


I F ( I * EQ# 7 ) J = 3 

23090 


I F ( I * EQa 8 ) J=4 

23100 


NMP ( J ) = NMP ( J ) + 1 

23110 

- 

AVG( J)=AVG( J)+RES1 

23120 




£ ‘ 117 

I F ( XS tEOoO. ) GO TO 109 

23140 

-J 

IF(I.EQ.l) J=1 

' 23150 


I F 7 I » E Q o 2 ) 3 = 8 

"2 3 1 60 


I F ( I • EQ« 3 ) J = 7 

23170 


I F ( I » EQ# 4 ) J=6 

23180 


lr(I«EG#5) 3=5 

ZTr913 * 


I F ( I # EQ« 6 ) J=4 

23200 


I F ( I • EQ# 7 ) J = 3 

23210 


IF'U#EQ.8l J = 2 

. 2 3"2"2~o 


NMP ( J ) =NMP ( J ) + 1 

23230 


AVG( J)=AVG( J)+RES1 

23240 


AVS( J)=AVS{ JJ+RES2 

23250 

109 

continue 

23260 


GO TO 800 

23270 

”C 


Z?2W 

c= = = = : 

= this section calculates the mean <amn) and rms (std). 

23290 

c 


23300 

lio 

DO 112 I = 1 5 NP AG 

“23310 


AMP = 0«0 

23320 


AMP = NMP ( 1 ) . 

23330 


IF (AMP oEQ. 0#0) GO TO 113 

23340 


AMN( 1 ) = AVG( 1 ) /AMP 

23350 


VAL is (AVS(I) - AVG< I)*AVG( I )/AMP) 

23360 


IF (VAL #GT. 0.6 j GO TO 111 

23370 


in n n o 


VAL = ABS(VAL) 

' Tif " "stduT =“ sqrtTvaL )“/ ( sqrt'( amp-iTo ) f 
SMN = AMN< I )*( 1.0E-6) 

IF ( STD ( I ) »LT« SMN) STD(I) = 0,0 


GO TO 112 

113 AMN ( I ) =0,0 

s LD_( I )_ =jo.o _ _ 

Ti?' “continue' 

'800 RETURN 

END 


I « F TC MS? 3E 5_ 

'tw'AXRTN 

SUBROUTINE MAXMIN(IRT) 

THIS SUBROUTINE CaTTJLAT ES THE MAXIMUM AND M I N I MUM SLOPES AT A 

POINTo 


COMMON DUM 

0 EQUIVALENCE 

1 
2 

'Op OUT VAL E N C E" 


i DUM ( 1 ) 9 CON) » 

( DUMI 1501 ) » W) » 
( DUM ( 3001 ) s JPN ) s 


DIMC) s 
THIC) 9 
NPAN ) 9 
IRC) » 
FR )j> 

Tpr ) 9 ' 


] ( CON ( 3 ) 9 DIMC ) 9 

2 ( CON ( 6)9 THIC ) 9 

3 ( CON ( 9)9 NPAN)9 

4 (CON( 12)9 IBC)9 

5__ (_CON_( 15 ) 9 FR )j> 

6 “(CON(* 18T» I PR ) 9 ' 

7 ( CON ( 21)9lSCR2)9 

8 ( CQN ( 24 ) 9 MP AG ) 9 

9 ( CON ( 27)9 IREL)9 

0 EQUIVALENCE 
“l ”( C‘6 nT 53 ) 9 SC ALT 9 ' 

2 <CON< 77)9 PLNA ) 9 

3 (CnN(101)> RES ) 9 
k ( CoN (401) 9 EANDF ) 9 


( CON ( 

( CON ( 

( CON ( 

( CON ( 

( CON ( 

( CON ( 

TconT 

( CON ( 

{ CON ( 

( CON ( 


“ 1)9 

4) , 
7) 9 
10 ) , 
13) 9 
JL6_) » 

19 n' 

22) 9 

25 ) 9 

28) 9 


(CONL 3 0 )j. 
TCON'I 61 ) 9 ' 
(CON! 85)9 
( CON! 315 ) 9 
(CON 1451 ) 9 


DIMA) 9 ' 
DEL) 9 
5PAD ) 9 
ISI ) 9 
NGP ) 9 
LOCP ) 
“CHAP") 9 
SKAL ) 9 
YONG ) 9 
LP5 ) 9 

I R M ) 9 
SPA ?) 9 
RAYA ) 9 
STAT ) 9 
RHS) 


( DUM ( 501)9 X ) 9 

( DUM (2251 ) 9 DWX) 9 
( DUM (3501)9 RTV) 

TCO N”f“ “2l T D f MB TT ' 
( CON ( 5)9 GNU ) 9 

( CON ( 8 ) 9 PRSS ) 9 

( CON ( 11)9 I SO ) 9 

( CON ( 14)9 LP7 ) 9 

( con j iji > ijpdj 9 
'( conTTo > 9 ISCR1 )T 
( con ( 23)9 isec)9 

( CON ( 26)9 ILGD)9 

( CON ( 29 ) 9 CPRSS ) 

( CON ( 31)9 I PB ) 9 

■'( con ( ' 69 rrnpREsTT' 

( CON ( 93)9 RI ) 9 
( CON (371 ) 9 OIF ) 9 


0 DIM ENSION CON ( _ 500 ) 9 X ( 21 > 3 3 ) 9 

“l DW X'1'2 1 T 3 3 T TjpnT5“00 ) 9 R TV1 50 O') 9 0 IF ("12 f 


W(21 933) 9 


0 DIMENSION RT 30(3)9 RT 3 1 ( 3 ) 9 RT32<3)9 RT36( 2) 9 r T3?(2 ) 9 RT38 (2 ) ? 

1 R 1 3 9 ( 2 ) 

0 DATA RT3O ( 1 ) /13H ELLIPSE A=/ 5 RT 31(1) /13 HR EC TANGLE A=/ s 


23380 

"23390 

23400 

23410 


23420 
23430 
2 3 440 
23450” 
23460 
,23.470 


1 

234S0~ 
23490 
23500 
23510 
23520 
__2 3 5 3 0 
23540-’ 
23550 
23560 ’ 
23570 
23580 
23 590 
"23 600"' 
23610 
23620 
23630 
23640 
2 36_50_ 
"23660 
23670 
23680 
23690 
23700 
23710 
"23720" 
23730 
23740 
23750 
23760 
23770 
"2“37W 
23790 
23800 
23810' 
23820 
23830 


T 

o 


KtJZTT rTTB'RT'R'A P£Z 01 [) A=7~» RT 3T/W~"B =7T "R T 34 f W“0 7”? ' 

RT35/6HSCALE=/ > RT36( 1 ) / 1CHTHICKMESS=/ , 

RT37(1)/9H PANES*/ » RT38(1)/11H SPACIflG = /> 


Z3BW 

23850 

23860 


, C 

,_C=; 

C 

- c 


A RT3Q(1)/12H PRESSURE=/ 

DATA HING/6HHINGED/ » CH/1H /» CLMP/6HCLAMPE/ » CC/lHD/ 

RAD =" “0 70 17 A 5 3 2 92 5 19 ~ 

IDT = IRT 

LIME=0 

vp _Xid LS_.„S£X LIOJNL .G.E.MER AI£ S . A_ EDJLtU. L tLJQiEL-M I P. Q_L E „ .0 F__A _GR ID . .AND „ I H EN „ 

DETERMINES IF THE GRID EXISTS. 

DO 120 K=1 >NGP 


23870 

23880 

23890 

"23900 

23910 

23920 

~TPTW 

239A0 

23950 

2-3960 

23970 


IPG - 2 
K 1 = JPN(K) 

CALL PACWRD (K1»JC2_» 2) 
X'P ="X(K1,K2 ) +"DEL/2.6" 
EJ=K1~1 

YP=EJ*DEL + DEL/2.0 


23980 
23990 
2A00J3 
2 AO 10 
2A020 
2A030 


CALL INCOTB (XPj YP» 0WF» 
IF (IPG .EQ. II GO TO 120 
R = 0.0001 


OwX j OWYs IPG) 


K) 


SMX = 0.0 

DO 1 1 A J=1 » 1 8 1 > 2 

RJ = J-l 


2A0A0 
2A050 
2A060 
"2'AOTO" 
2A080 
2A090 
' 2 A TO 0 
2 AHO 
2A120 


THE = RJ*RAD 

XL = XP + R*COS(THE) 

JL =_ YP__ +_ R* S I N ( T H E ) 

C Aim NCO T B f X L » Y~CTo W gTo WX"# 0 W YV I P G') 
OWR = (ABS(OWF) - ASS(OWG))/R 
OWS = ABS(OWR) 


SMN = OWR 
SMX = OWR 


2A130 
2A1A0 
2A150 ~- 
2 Al 60 ' 

2A170 
24180 
*2"AT90 * 
2A200 > 
2A210 - 

"2a22o : 

2A230 
2A2A0 
“24"2"50"""! 
24260 1 
2A270 - 


IF ! J .EQ. 1) 

IF (J .EQ. 1) 

THF = THE/RAD 

"i rrows . cm b stsm xt> goto itf 

SHX = OWR 
AMX = THE/RAD 


I U2 I F (0WB™TgT". ABS( SMN)) GO I 0 1 IT 

SMN = OWR 

1 AMN = THE/RAD 

T 1 A cCnTinTTe - ~ ' 

IF(K.EQ.l) GO TO 115 
I F ( L I NE-A5 ) 116»115»115 


L I NE j I SO » foTT 


1 15 CALL PAGE ( IPP> 
WRITE ( ISO j 500 ) 
500 0 FORMAT (1H0/1H 

r TrrTTnr * 


j3X >A0HW 

t nrrir* 


I N 


0 l; 
"A~"X ' 


D 

71 


E 


F 

IT' 


0 


M 

7T 


A T I 0 N S 


D" 


2A^30 
2A290 
2A300 
' TTA'TIO” 


' ' 2 2 5HM I N I HUM SLOP E/1H ) 24320 7 

i chap = chap 24330 

f IF ( IBC .ME* 'll GO To 30 2 24340 

CONC = H I MG 24^50 

CF = CH _ 24360 _ 

302’"’ TF (IBC . NE". ’ 2 )” GO "TO " 3 03 24370 

I CONC = CLMP 24380 r 

CF = CC 24390 ! 

r 303 GO TO (102 7 10 3 7 1 04 } 7 I CHAP ~T556oII1_ 

10 2^0 WRjTF ( ISO » 50 1 ) ( RT30 ( I ) » I = 1 » 3 ) » DIMA* RT33> DIMB, __ 24410. _/ 

_ rT35,'skAL 7 ( R T 3 6 ( I ) »" I = f» 2 ")" » THI C » "T R T 37"( *fj ,1=1,2), NPAN, 24420_ 

2 ( RT38 ( I ) » 1 = 1 *2 ) » SP AD » ( RT 39 ( I ) ,1=3 ,2 ) > PRSS> CONC> CF 24430 _ 

501 0 FORMAT t 1H0 > 2 A6 > A1 , F5 . 2 , A4> F5 . 2 , 14X , A6 , F4. 2 , 3X , A6 , A4, F5 »2 , A6 , A3 , 24440 

1 1 1 »A6 ,A5 »F3«> 1 ,2A6 »F5« 1 ,3X »A6» A1 ) 24450 

GO TO 105 24 460 __ 

103 0 WRITE ( I SO > 50 1 ) ( RT3 1 ( I ) * I =1 *3 ) » DIMA* R T33 , DIMB » .2.4470 __ 

1 rT 35T"SKAL» "( R f 36 fl)»I=i»2)s THI C » ( RT 37 ( I f » I = 1 , 2 ) > NPAN , 24480 

2 (RT38< I) > 1 = ] >2) , SP AD , ( RT 3 9 ( I ) » I =1 *2 ) » PRSS, CONC> CF 24490 __ 

GO TO 105 24500 

104 0 WRITE ( I SO , 5 1 8 ) ( RT32 ( I ) » I =1 » 3 ) , D I MA » RT33, DIMB 4 RT34, DIMO 24510 

1 RT35 > SK.AL , ( RT36 ( I ) , 1 = 1 >2 ) , THIC, ( RT 37 ( I ) p I = 1 » 2 ) > NPAN » 24520 

2 (RT38(I ) *1 = 1*2) p SP AD , ( RT39 ( I ) » I =1 p2 ) » PRSS, CONC , CF 24530 

51 8 "0 FORMAT T 1 H 0 p" 2 A6» A lT F5 » 2 »' A 4 » F5 . 2 , A4» F5 _ * 2,5X , A6 » F4. 2 » 3X , A6 » A4 » F5 . 2 * 24340 

1 A 6 , A3 » I l»A6,A5»F3ol»2A6»F5«l,3X»A6»Al ) 24550 

105 WRITE (ISO,505) 24560 

505 0 FORMAT (1H0/1H ,43H ( ANGLE IS IN DEGREES MEASURED WITH RESPECT > 24570 

1 2 3HT 0 THE POSITIVE X-AX IS ) / 1H0 , 12H COORD I NATES , 26X , 8HMAX I MUM , 24580 

2 SHSLOPEpIOX, 14HMINIMUM SL0PE/1H ,3H X' , 7X , 1HY » 8X , 10HDEFLECT I ON » 24590__ 

" T"TxVi5"hSL 0PE “ 'ANGLE »8jT»i5HSL0PE* ANGLE)"* 24600 1 

116 WRITF (ISO, 506) Xp » Yp , OWF , SMX, A MX , SMN , AMN 24610 

506 FORMAT ( 1H » F5 . 2 » 3X , F5 . 2 , 4X , E 1 2 . 5 > 2 ( 4X , E 1 2 . 5 > 3X , F4 . 0 ) ) 24620 

’ 12.0 CONTINUE 24630 

I 800 RETURN 2463-f) 

END 1___ 246 3'ft 

“ SrRFTC MS23E6 " " '""24640' 

CRTVLST 24650 ’ 


c 

c 

‘ SUBROUTINE RTVLST (IRT, LINp IPV) 

III = SWITCH TO BYPASS RETRIEVAL PAGING PRINTOUT 

24660' ‘ 

24670 

24680 

c 

c 

c 

IPV = 
ISO s 
jTl n 

PAGE COUNTER FOR RETRIEVAL INDEX PRINiOUl 
SYSTEM OUTPUT TAPE 
RETRIEVAL NUMBER 

24690 
' 24700 

24710 

c 

jTy-r 

N u NBER^T” P A N E S 

~~2T7JU~ 

c 

JT10 

= BOUNDARY COORDINATE SWITCH 

24730 

c 

LIN = 

RETRIEVAL INDEX OUTPUT LINE COUNTER 

24740 

c 

RT2 = 

PLANFORM SELECTION SWITCH 

24750 

c 

RT3 = 

BASE LENGTH OF PLANFORM 

24760 

c 

RT4 = 

WIDTH OF PLANFORM 

24770 

c 

RT5 = 

UPPER X DIMENSION OF TRAPEZOID 

24780 


131 



1 ( CON ( 53)» SCAD? (CON( 61)> SpAC) * ( CON ( 69 ) » PRES), 25010 

2 ( COM ( 77 ) , PLNA ) > (CON{ 85), RAYA ) » (CON( 93), RI)» 25020 

3 ( CON (101) , RES), ( CON (315) s STAT), (C0N(371)» 0 IF > » -25030 

4 TCON (401) 7 E AND F ) 7 (CON ( 451 ) * THS f 25040 

C 25050 

0 EQUIVALENCE (RTV( i)» JT1), (RTV( 41)9 RT2 ) , 25060 




132 



DO 114 1=1, LIN 25480 

IF (RT2(I) *NE* 1*0} GO TO 102 25490 

SHA_P£l) a RT30U) _ 25500 

SHAP( 2T“=“"RT3'oT 2~T ' ' ' ” 2“5~5“l0 

102 IF ( R T 2 ( I ) ,NE* 2.0) GO TO 104 25520 

SHAP(l) = RT3K 1) 25530 


SHAP<2) = RT31(2) 25540 

104 IF ( RT2 ( I ) oNE. 3*0) GO TO 106 25550 

SHAP(l) = RT32(1) 25560 

STlA PT 2 "r~=' "R TTzTT) ~ ”2T5 T0 " ~ 

106 IF (JTIO(I) « NE # 1) GO TO 108 25580 

CONC(l) = RT 3 3 { 1 ) 25590 





jA6jlA14 25130, 

114 CONTINUE 25740 

LIN - 0 25750 

800 RETURN 25760 

END ~ 25770 

SIBFTC MS23E7 25780 

_CBOND_RY_ __ ^ 25790 

SUBROUTINE" BO NDR Y (X p T~ Y P 7 TbY) 25800 

C 25810 

_c THIS SUBROUTINE TESTS THE X AND Y COORDINATES OF A POINT TO RE 25820 

C SURE THEY ARE INSIDE THE BOUNDARY. 25830 

c ' 25840 

C A. = DEFINED BELOW 25850 

C B DEFINED BELOW " “25860 

C C DEFINED BELOW 25870 

C CHAP = ICHAP a PLANFORM SELECTION SWTICH 25880 

C DIMA = LOWER LENGTH OF PLANFORM 25890 

C DIMB = HEIGHT OF PLANFORM 25900 

C DIMC = UPPER X DIMENSION OF TRAPEZOID 25910 

C I BY = 1 INDICATES point" Ts" OUTS IDE* PLANFORM" BOUNDARY ~25920 

C XLIM = X VALUE AT PLANFORM BOUNDARY CORRESPONDING TO Yp 25930 

C XP = X COORDINATE OF POINT BEING CHECKED 25940 

C YP = Y COORDINATE OF POINT BEING CHECKED "2595 0~ ' " 

C 25960 

CO M MON DUM __ • 25970 

C 25980 

0 EQUIVALENCE ( DUM ( 1), CON), (DUM( 501), X)* 25990 

1 ( DUM ( 10 01 ) » Y), ( DUM ( 1501 ) > W), (DUM(200l), DWX ) , 26000 

?' < DUMTTsTTrrriiwTn {^irRTfo''OTrT~“j'PN''n muTTT^TorrrxnTi — wsvs “ 

c 26020 

0 EQUIV ALENCE __ (CON( 1), DIMA), (CON( 2)» DIMB) , 26030 

T (CONI'” 3~fT DTmcT", - " {"CON"! "4 ) DECT » ~ "TCONT “5 f", ""“GN0y> 26040 

2 (CON! 6 ) > THIC)» (CONI 7), SPAD), (CON( 8), PRSS), 26050 

3 (CQN ( 9)» NP AN ) s < CON ( 10J » IS I ) , (CON( 11), ISO)* 26060 

4 (CON! 12 ) , TbcTT rC0FT( 13) 7 NGPll <CON( 14T* UpTH 26070 

5 ( CON ( 15 ) » FR ) , ( CON ( 16) » LOCP), (CON( 17), IPD)» 26080 

6 ( CON ( 18), IPR), ( CON ( 19), CHAP), (CON(20), iSCRl), 26090 

TlCONl 2 fTT rS"cR"2 T , T CO NT "2ZT»“'STCACTT TCONT'23 )V HTEC )"*' “ T6IUV ~ “ 

8 (CON! 24), NPAG), (CON! 25), YONG) , (CON! 26), ILGD), 26110 

9 (CON! 27) , IREL) , (CON! 28), LP5), (CON! 29),CPRSS) 26120 

c 26130 

0 EQUIVALENCE (CON( 30), IRM), (CON( 31), IPB), 26140 

1 ( CO N ( 53), SCAL)^, (CON( 61),_SPAC), (CON(_6_9), PRES), 26150 

2 ( com 77), PLNA ) V " 'TCON (""'85") TIPAVa") ^ “( CON ( “ 93") , Rf) *“ ‘ 26160' 

3 (CONilOl), RES), ( CON ( 315 ) , STAT), (CON(371), OIF), 26170 

4 ( CON t 40 1 ) , EANDF ) , (CON (451), RHS ) 26180 

c 26190 



0 

DIMENSION CON ( 500), X(22,22), Y(22>22), 

W ( 22 ,22 ) , 26200 

"26210" 

26220 

26230 

■ 

1 

c 

DW X ( 2 2 » 2 2 ) , DWY ( 22,22) » JPNI 500), RTVt 500) 
ICHAP * CHAP 



GO TO ( 101 , 102>103 ) , ICHAP 

26240 


101 

A = DIMA/2.0 

26250 



B = DIMB/2.0 

26260 



IF (AB'S(YP) *GT. B) GO TO 104 

26270 



XLIM a ASSORT ( 1*0- { YP#*2/ ( B*B ) ) ) 

26280 



IF (ABS(XP) . GT » XLIM) GO TO 104 

26290 



GO TO 800 

26300 


102 

A = D IMA/2 • 0 

26310 



B * DIMB/2.0 

26320 



IF (ABS(YP) .GT. B) GO TO 104 

26330 



IF (ABS(XP) .GT. A) GO TO 104 

26340 



GO TO 800 

.26350 


103 

A = DIMA/2.0 

26360 



B = DIMB 

26370 



C = DIMC/2.0 

26380 



IF (ABS(YP) . GT . B) GO TO 104 

26390 



XLIM = C + ( (A~C)/B)*(B~YP) 

26400 



IF (ABS(XP) aGT. XLIM) GO TO 104 

26410 



GO TO 800 

26420 

10 

104 

I BY = 1 

26430 


800 

RETURN 

26440 



END 

26450 


$ irftc 

MS23E8 

26460 


CPACWRD 

26470 



SUBROUTINE PACWRD ( K1 » K2 > K3 ) 

26480 


C 


26490 


C 

THIS SUBROUTINE PACKS AND UNPACKS TWO INTEGER WORDS. 

26500 


C 


2651 6 


C 

PACKING K 1 = FIRST INTEGER AND RETURNED PACKED WORD 

26520 

• 

c 

K2 = SECOND INTEGER INPUT 

26530 


c 

K3 = 1 

26540 


c 


26550 


c 

UNPACKING K 1 = PACKED WORD AND RETURNED FIRST INTEGER 

26560 


c 

fC2~ = ~$ E C OTTd"“ TINT ETjETT R'E T CIRTIED'"' “ 

i - "26"57"0~ ~ 


c 

K3 = 2 

26580 


c 


26590 



GO TO ( 100 » 102) * K3 

26600 


100 

K1 = Kl*32768 + K2 

26610 



GO TO 800 

26620 


102 

K4 = Kl/32768 

26630 



K2 = K1 - K4*32768 

26640 



K 1 = K4 

26650 


800 RETURN 


26660 













r>;n n n 


END ' 27620 

$ I BFTC MS23F3 27630 

FUNCTION T ANH ( ARC ) 27640 


27650 

THIS FUNCTION CALCULATES THE DOUBLE PRECISION HYPERBOLIC TANGENT 27660 
BUT RETURNS THE SINGLE PRECISION HYPERBOLIC TAN GENT, _ 27670 

27680 

DOUBLE PRECISION ARGjDTANH 27690 

C 27700 


ARG = ARC 27710 

I F ( ARC «GT « 88.0) ARG = 88.0 27720 

PTANH - ( DEXP ( ARG )~D EXP ( -ARG M / ( DEXP < ARG ) +DEX P (-ARG ) ) 27730 

TANH = DTANH 27740 

RETURN 27750 

END 27760 


2789 








-C COW — js. .. DUMMY— A S.RAX-.EOH _.COJiS.IA NJ_ _A N D_ . V AH IAB L E „.$XQ_R.A GEL QQ4J0_ 

C CPRSS = CABIN PRESSURE 00480 

C DEL = GRID SPACING 00490 

C DIMA = A DIMENSION 00500 

C ~dTm§ = B DIMENSION ~ 005 10 

C DIMC ** C DIMENSION 00520 

S _DON a .CONS I ANT IN REFRACTIV E IN DEX EQUAT ION _ __ 00 530 

c DWX = ARRA‘Y OF 'TRfbpolNt “DEFLECTToNS" For"SECONDTaNE 00540 “ 

C EANDF = ARRAY USED IN RECTNG 00550 

C FR - PLATE STIFFNESS (p) QQ560 

C GNU = POISSONS RATIO ~ ~ 00570 

C I BC - BOUNDARY CONDITION SWITCH 00580 

_c ICHAP = SEE CHAP 00590 

C IDT “T DEFORMATION DATA~~RETr I EVA C SEQUENCE "NUMBER" 00600 

C ILGD = 1> FIND DEFORMATIONS BY LARGE DEFORMATION METHOD 00610 

C I LRG a 1» LARGE DEFLECTIONS WERE CALCULATED 00620 

~ I MAN = T7 FIND MAX./MIN. S LOPEs"oF“ DEFORMED POINTS Q0630 

C INDX = 1, PRINT RETRIEVAL INDEX AT TOP OF PAGE =0>NO PRINT 00640 

C I_PB_ - PAGE NUMBER COUNTER IN RESPRT FOR TAPE 9 00650 

C I PD « PAGE NUMBER COUNTER IN'dEFRES 00660 

C I PR = PAGE NUMBER COUNTER IN RESpRT 00670 

C IPV = RETRIEVAL LIST PAGE NUMBER 00680 

~c fRir = n REAL WINDOW INCLUDE "OTHER SIDE OF SYMMETRY AX fs " — 00690 

C IRM = PAGE NUMBER COUNTER IN RESPRT FOR RMS OUTPUT ON TAPE 6 00700 

C IRT = LOS DATA RETRIEVAL SEQUENCE NUMBER 00710 

c' TScri = scratch “Tape unTT'T T o r" “de format i o n ""d ATa~ o"o72o~ 

C ISCR2 = SCRATCH TAPE UNIT 8 FOR LINE OF SIGHT (LOS) DATA 00730 

C I SEC = 1* PRINT LOS DATA > =2, PRINT RMS DATA 00740 

~c TS1 = I NP OH TapTHmUMbTR 00750 

C ISO a OUTPUT TAPE NUMBER 00760 

C_ L S _?_ - SCRATCH TAPE UNIT 9 FOR LINE OF SIGHT DATA BINARY CODED 00770 

C ISHR = 1, CALCULATE SHEAR''D^FORMATTbNS'“ 00780 

C JPN = ARRAY OF GRIDPOINT COORDINATE INDEXES 00790 

c Lin a retrieval list line counter oosoo 

“C LOCP = KEYS HEADINGTTaTn7TiP^'~LoS PRINTeT PAGE L0CP = 2>N0 HEAD 00810 

C LP1 = INDEX ON NO. OF BOUNDARY CONDITIONS 00820 

C LP2 = INDEX ON NO. OF SCALES 00830 

"C ' L"P'3 “ “ = FNDE X" " "OTT " N"0~ ~ '0 F~ S P KCE5' 7 “00"8"40~“ " 

C ’ LP4 = INDEX ON NOs OF PRESSURES 00850 

C LP5 = INDEX ON NO. OF RAY ANGLES 00860 

C LP6 = INDEX ON N 0 , OF GRID POINTS OOHTo 

C LP7 = INDEX ON NO*. OF PLANE ANGLES 00880 

C__ _ M 1 BP __ = 1 » _ BYPASS GENERATION OF INVERSION MATRIX FOR INTERPOLATION 00890 

C MET =--bT P A S3 ” W I T CH ' F 0 R ~ T A P E~ R £ W f R D" "S TTT E M’E N TS “I N W IN TWO “ "" " 00900" ' 

C NBC = NO. OF BOUNDARY CONDITIONS 00910 

C NGP = NO. OF GRID POINTS 00920 

C ‘ NMP =~TrTTYTXFHTC^ TiOTEATJ OTTTO 




c noprt = keys tapes on which output data appears 00940 

C VoT” DEFORMAT' IONS ON TAPE "7 » LOS" ON "TXPES“~8 AND~"9 00950” 

C a 1» ALL DATA ON SYSTEM OUTPUT TAPE 00960 

C = 2» OUTPUT ONLY RMS DATA ON OUTPUT TAPE 00970 

C NPAG = NO. OF PLANE ANGLES 00980 

C NPAN = NO. OF PANES 00990 

_ _c ___ NPRS_ = NQ* OF PRE SSURES 0_.lp.Q0 

c" ’ "nr AG =~ NO." OF~RAY ANGLES ” 01010 

C NRFI = NO. OF REFRACTIVE INDEXES TO BE READ IN 01020 

C NSCL = NO. OF SCALES 01030 

C NSPC = NO. OF SPACES 01040 

C OIF = SUPPLEMENTAL ARRAY 01050 

C PLNA = ARRAY OF PLANE ANGLES 01060 

C ~ ~ PRES =“ ARRAY FOR“STORTNG' I NTeFSTTCIAT PRESSURE'S - 0"l07"CT 

C PRSS = PRES ( I ) = PRESSURE ON PLATE 01080 

C RAYA = ARRAY OF RAY ANGLES 01090 

C RES = ARRAY FOR STORING LOS OUTPUT 01100 

C RI a ARRAY OF REFRACTIVE INDEXES OHIO 

C RIC = REFRACTIVE INDEX COEFFICIENT 01120 

~ C~ ~ ”RflS~" = ~AR R AY“US E D i NHRECTNG* * " OlTgO " 

c rTV = ARRAY FOR STORING RETRIEVAL INFORMATION 01140 

C SCAL = ARRAY FOR STORING GEOMETRIC SCALE FACTORS 01150 

£ C SHAP = See CHAP 01160 

O C SKAL = SCAL(I) = DIMENSIONAL SCALING FACTOR 01170 

C SPAC = ARRAY FOR STORING SPACE FACTORS 01180 

C “ SPAD”= SPACl ry = SPACE BETWEEN PLATES 61190 

C STaT = ARRAY FOR STORING MEAN AND RMS DATA 01200 

C STD = ARRAY FOR STORING RMSES V • 01210 

C THIC = PLATE THICKNESS 01220 

C W ARRAY OF GRIDPOINT DEFLECTIONS FOR FIRST PANE 01230 

C WORD = ARRAY FOR TITLE 01240 

c x - - - -^ R - R ^y "OF X" CO'ORDlNATES" 0T”GRIDP0"I NTS IN~DEFORMAt ION "TABLE 01'2“50 

c YONG = YOUNGS MODULUS 01260 

C . 01270 

DOUBLE PRECISION AVGjAVS 01280 

C 01290 

COM MON DUM _ _ __ _ _ 01300 

0 EQUIVALENCE <DUM( 1>» CON)> (DUM( 501)» X>» 01320 

1 ( D UM ( 1 5 0 1 ) s W)» ( DUM ( 225 1 ) » DWX)> 01330 

2 ( DUM ("3O0'l I, JPN) » ( DUM( 3501H RTT) 01340 

C 01350 

0 EQUIVALENCE (CON( 1)» DIMA)) ( CON ( 2)) DIMS)) 01360 

1 _ ( CON ( 3TV DIMC)> ( CON { 4T," DEL ) » ( C 0 N ( 5 T> " G N U ) ) "01370 

2 I CON I 6)) THIC)» (CON( 7)) SPAD)) (CONC 8)) PRSS)» 01390 

3 (CONI 9)) NPAN)) ( CON ( 10), IS I ) * (CON( 11)* ISO)) 01400 

___________ ‘ fCONT 13) ) NGP ) ) TCONl 14T» L P 7 ) » 


01410 


no n 



DATA TRAP/4HTRAP/ > EL IP/4HELI P / » RECT/4HRECT / 

DATA Hi NG74H HTNG/T”CLMP MHCLMP77 ~BOT H'/AHBoTh 7 S' T A R 7 5H # * * * *7' 

===== THIS SECTION INITIALIZES INDEXES „ 


CALL CLOCK (TIME) 

WRITE <6_»600]_ TIME 
TO'RMAT"" ( I H 0 »"2 5H"W ! NTW 0 T I M ET "= 
ISI = 5 
ISO = 6 
ISCRl = 7 
ISCR2 = 8 
IDT = 0 

TRT = 0 

IRM = 0 
IIN = 0 
I PD = 0 


TPT0747 


01 / oo 

01710 
01720 
0 1730 ' 
01740 
0 1750 
07760 
01770 
01780 
7 1790" 
01800 
01810 
T5T8TZTT 
01830 
01840 
01850“ 
01860 
j01870 
oTWcT 


n n n 


J.PR = 0 __ 01890 

IPV = 0 " ” " "61900” 

I PB = 0 01910 

MRT=0 01920 


DO 90 1=1 >500 01930 

90 RTV( I ) = 0.0 01940 

100 __ NGP_ = _0 , _ 01950 

Xi = 0. “ 01960 

Y 1 =0 . 01970 

REAP ( I S I , 499 } I RT ; (WORD Cl ) >1 = 1 >15! 01980 


499 FORMAT ( 1 5 , 15A5 ) * 01990 

NBC = 1 . 02000 

I BC = 0 02010 

CHAP "=”0.0 " ” 02020 

02030 

= ==== READ IN PARAMETER DATA. 02040 


02050 

READ (ISI»500) SHAP, BONC , AA» BB, CC, THIC, YONG » GNU, DEL 02060 

500 FORMAT ( IX , A4 , 1 X , A4 , 7E 10 . 0 ) 02070 

1~F~(aa7EQ”. 0;0‘)"G'O"ToT00(5" ‘ 02"0"80 

IF( ( THIC.EQ.O. ) .OR. { YONG.EQ.O. > .OR. (DEL.EQ.O. > ) GO TO 902 02090 

IF (BONC s EQ* HING) IBC = 1 02100 






U j u u|u 


- 4-£-4<l R-T-.-N-E « .04 *- GO - -T-O—l 03- 

I F ( NOPRT e EQo 0 ) REWIND ISCR1 
I F ( NOPRT * EQ* 0 ) REWIND I SCR2 
IF (NOPRT. EG.O) REWIND IS9 


IF(NOPRT.EQ.O) mrt = 1 


MAIN DO-LOOP ON NUMBER OF BOUNDARY CONDITIONS. 


DO 126 LP1=1 >NBC 
IF { LP1 . EQ o 2) I BC=2 


DO 126 LP2=1 »NSCL 
M I Bp=0 

SKAL = SCALILP2) 

‘ I F rSKALTEQ ."0 7T Q~6~Tq 9( 
DIMA = AA^SCAL ( LP2 ) 
DIMB = BB*SCAL(LP2) 


D I MC = CC#SCAL(LP2) 

i chap = chap 

_ DO 104_J s = 1 j 33 
' D 0 " 1 0 4 JS"“= “T 721 
X( I S > J S ) = l.E-6 
W( IS» JS) = 0.0 


= = = = = _ SELECT PLANFORM To be SOLVED. _ 

GO TO ( 1 06 s 108 » 1 10 ) » ICHAP 
106 CALL ELIPSE 


.023.60. 

02370 

02380 

02390 


02400 

02410 

02420 

~0243(T 

02440 

02450 


02460 

02470 

02480 

"024*90”" 

02500 

02510 


02520 
02530 
0 2 540_ 
02550 
02560 
02570 


02580 
02590 
02600 
'"0 2 "& 1 0 "' 
02620 
02630 



u uju 


DO 799 L = 1_j_33 _ „„ 02800 

' W ( KYI) =W(K»L)*"( CPRSS-PRSS ) 02810 
799 DWX ( K > L ) =DWX ( K » L ) *PRSS 02820 
CALCULATE REFRACTIVE INDEXES for PRESSURE USED. 02830 


111 DOM = ( ( 2.926E-4) / ( 1 .0 4- ( 3 .665E-3 >*( 21 *0 )) ) /14.7 02840 

RIC = 1.0 + DON*ABS(PRSSJ 02850 

IF <NPAN «EQ* 1) RI C 1 ) a RIC _ ___ _ __02860 

IF" { N P AN . EOT 2 )' R I t 1 T ~= 1 • 6 + D 0 N * A B S ( C P RS S ) 028 70 

IF (NPAN .EQ* 2) RIO) = RIC 02880 

WRITE ( ISO ? 1 0 5 OJIPRsIPB 02890 


WRITE( IS0*123) ( PRES ( I ) > 1 = 1 >NPRS) sCPRSS 02900 

WR I TE ( ISO j 1 21 ) < RI( I) » 1 = 1 >NRFI ) 02910 

123 FORMAT ( 1H * 2 1HPRESSURE LEVELS ARE 6E15.4) 02920 

121 FORMAT (1H"> 2 3 HR EFR ACTIVE TNDI CES'TRE"""' 6E16". 8 ) """02930 

IDT « IDT + 1 02940 

CALL DEFRES (IRT» NOPRT) 02950 


CALL RTVLST (IRT» LIN> IPV) 02960 

IF (IMAN .EQ. 0) GO TO 114 02970 

CALL MAXMIN (ig.T') __ 02980 

114“ “lF“TlLGD”.EQT "0") go T0“T16“" 02990 

CALL LRGDEF 03000 

I LRG = 1 , 03010 


CALL DEFRES (IRT» NOPRT) 03020 

03030 

===== PERFORM RAY TRACE ON DEFLECTED SHAPE FOUND ABOVE. 03040 

- - 03050 

116 DO 125 LQ1 a 1>NSEX 03060 

DO 125 LQ2 = 1* NBET 03070 



non ' I n n rv nriion 


XQQ—X SjU 2.%DE U- 

IX=X00 

XU=IX 

RE=XQQ-XU 

IF(RE.NE.0„ ) GO TO 
YQQ=YS/ { 2.*DEL) 
iy=yqq_ 

YV=fY ' ' 

RE=YQQ~YV 
IFtRE.NE.O.) GO TO 


ZSEX = ZSEXT ( LQ1 ! 
PLANA = BETA ( LQ2 ) 


R AYAN = 
‘PAIAN “= 
THEAN = 


PSIA_( LQ3 ) 
PAlA ( lq4T 
THEA ( LP6) 


CALL RAYTWO (XS, 


CONTINUE 


ZS» pLANA> RAYAN > PA IAN s THEAN > ZSEX) 


THIS SECTION PRINTS THE RAY TRACE DATA AND STORES THE COMPONENT 
' D"A Ta‘~T N~ “M E N"R~E"S""'N EEC) ED’ "T o" "CAL C UL AT E T R E WATT" AND" R MS'". 

I SEC = 1 


CALL MEFlRMS 

CALL RESTWO ( IRT> NOPRT ) 

CONTINU E 

this section calculates the mean and rms and then prints them 


.0.3270. 
03280 
03290 
033QQ 
03310 
03320 
03330 
‘03"3"40 ' 
03350 
03360 


03370 
03380 
03390 
' 0 3400 " 
03410 
03420 


03430 

03440 

03450 

"03460 

03470 

03480 


03490 

03500 

03510 

"0"3' 5 "Z0"~ 

03530 

03540 


CALL MENRMS 03560 

CALL RESTWO ( I RT > NOPRT) 03570 

TIB'T^NTTNOF 03"5"8"0” 

I F ( ( ICHAP.NE.3) .OR. <N2«NE*1) ! GO TO 126 03590 

DO 199 K = 1 » 21 03600 


DO 199 L = 1 > 33 03601 

W(K>L)=W(K>L)/<CPRSS-PRSS) 03610 

199 DWX(K>L)=DWX(K>L)/PRSS 03620 

US tONTiNOr 03“6“30" 

GO TO 100 03640 

03650 


hTS™5eTT ION PR :~NT~S i HE ERROR COMMENTS* 03660 

03670 

900 WRITE ( I SO > 95 0 ) BONC 03680 

“9T0" “0“TO R mA TT 1 HT7 1 HO WflTHE ' BO'UND'A'R'Y" “CONDI TI ON “WOR"D““US"ED“ WAS TA4 . ~ ‘ 03“690 

1 25H WHICH IS NOT ACCEPTABLE.) 03700 

GO TO 2000 . 037'10 



951 0 FORMAT ( IHI/IHO/IHOj 28HTHE PLANEFORM WORD USED WAS >A4>_ .03730 

1 25H"“w"hTcH I S”nOT" ACCEPTABLE”;") """ 03740 

GO TO 2000 03750 

907 WRITE (ISq»952) 03760 

952 0 FORMAT (1H0>43HTHE THICKNESS > YOUNGS MODULUSj OR THE GRID > 03770 

1 19H INCREMENT ARE ZERO.) 03780 

GO TO 2000 03790 

" 903'"" WRITE 1 fS07953T"LP2 ~ ” ~ 03 ff 00 

953 FORMAT (1H0* 6HSCALE ( » I 1 » 10H) IS ZERO.) 03810 

GO TO 2000 _ 03820 

1000 LIN = LIN + 100 03830 

CALL RTVLST (IRT, LINs IPV) 03840 

IFiNOPRT.EQ.l) GO TO 1010 ’ 0385O_ 

WRITE" ( 150,1050) IPR.TPB "" " 03860 

1050 0 FORMAT (1H1/1H0>9HTHERE ARE"? 1 5 ’ 27H PAGES OF RAY TRACE OUTPUT , 03870 

'1 30HON THE MICROFILM TAPE (TAPE 8)/ 03880 

2 1H0»9HTHERE ARE,I5>27H PAGES OF RAY TRACE OUTPUT , 03890 

1 30HON THE RETRIEVAL TAPE I T APE 9)) , 03900 

I NX = 999 03910 

CALL"" PAGE TOP B > lTN* "IS9T I NX) ” 03920"” 

GO TO 1020 03930 

1010 WRITE ( I SO s 10 5 1 ) IPR 03940 

10 51' 0 FORMA? ( 1 H 1 / lR) » 9 HTH ER E ARE ,1 5 > 2 7H PAGES OF ' RAY TRACE OUTWTC 03950 

1 30H0N THE SYSOUTPUT TAPE (TAPE 6)) 03960 

1020 WRITE ( 150,1052) 03970 

T"0 5 2 " ""FORMAT "( 1H0/1HO *30X» ACTh*^*** THE PROBLEM YOU "GAVE ME"TO DO "WAS"" 7 03980 

1 20HDONE CORRECTLY *****) 03990 

CALL CLOCK (TIME) 04000 

^ ( 6 » 9099")' TIME : 040 10 ~ 

9099 FORMAT (1H0,25HEND WINDEF TIME = » F10.4) 04020 

1060 WRITE(6,9098 ) IRT 04021 

9098 FORMATTl H 1738 HTH E"~P "ROBT EM D ES I GTTaTED R ET R TVAU 710 M BE R7 1 4 V 5 8 H HAS" IT" “ 0‘4“0'2"2 
IS AA DIMENSION GREATER THAN THE PROGRAM CAN HANDLE. ) 04023 

1065 WRITE(6>9097) IRT 04024 

9097 FORMAT ( 1H1 ? 30HTHE~PROi3LEM DESIGNATED RETRI VAL NUMBER,* I 4758H HAS IT 04025“ 

IS BB DIMENSION GREATER THAN THE PROGRAM CAN HANDLE.) 04026 

GO TO 100 04027 

2"0"00" “STOP ""'04030 

END 04040 

$ I BFTC MS23G1 04050 

CEL IPSE 04060 

SUBROUTINE ELIPSE 04070 

C _____ _ _ _ _ _ _ 04080 

c t"HfS' SDbR"OUTEN"E GENERATES”ThE"'Ta”BLE""0~F' GRTDPOTnT DEFORMATIONS" FOR"" 04090 

C AN ELLIPSE 04100 

C 04110 

C A ELLIPSE MAJOR SEMI AXIS - 04120 



- -C- 


_g s. 

. £ L L I-P S£ .M I-N 0 R -SEMI- ~A.X IS. . 




..Q413Q .* - 


c 


C = 

ELLIPTIC FOCAL DISTANCE 




04140 


c 


DWX = 

DEFLECTION AT 

POINT I,J OF SECOND 

PANE 



04150 


c 


et 

ELLIPTIC COORDINATE 




04160 


c 


etx = 

PARTIAL OF ET 

WRT X 




04170 


c 


ETY - = 

PARTIAL OF ET 

WRT Y 




04180 


c 


I 

ROW INDEX 





04190 


c 


J 

COLUM INDEX 





04200 


c 


K 

GRIDPOINT COUNTER 




04210 


c 


NGP = 

NUMBER OF GRID POINTS 




04220 


c 


W 

DEFLECTION AT 

POINT I»J OF FIRST 

PANE 



04230 


c 


W1 

CONSTANT IN DEFLECTION EQUATION 




04240 


c 


WO 

CONSTANT IN DEFLECTION EQUATION 




04250 


c 


WEP = 

PARTIAL OF W 

WRT ET 




04260 


c 


WZP = 

PARTIAL OF W 

WRT ZI 




04270 


c 


X 

X COORDINATE 

ARRAY 




04280 


c 


xlim = 

X VALUE AT ELLIPTIC BOUNDARY ALONG ANY 

ABSISSA 


04290 


c 

- 

ZI 

ELLIPTIC COORDINATE 




04300 


c 


Z I X = 

PARTIAL OF ZI 

WRT X 




04310 


c 


“2TY = 

PARTIAL OF ZI WRT Y 




04320 


c 


all other left hand 

SIDE VALUES ARE TEMPORARIES 


04330 


c 








04340 




COMMON 

DUM 





0435“ 


c 








04360 



0 

EQUIVALENCE 

( DUM ( 1 > » CON) > 


( DUM ( 501) 

> X) * 

04370 



1 



IdUM ( 1501 ) » W) > 


TWmT2'23T Y 

> DWX ) * 

04380' 



2 



( DUM (3001 ) » JPN ) > 


( DUM (3501) 

? RTV ) 

04390 


c 








04400 



0 


lUMiiliiil— i'll '■■Uni II 1 




04410 



1 

( CON ( 

3 ) ? DIMC) ? 

( CON ( 4 ) 9 DEL)? 


( CON ( 5 ) > 

GNU) ? 

04420 



2 

(CONI 

6 ) ? THIC5 * 

( CON ( 7 ) f SPAD) ? 


( CON ( 8 ) > 

PRSS) * 

04430 



3 

( CONT 

9 ) * NT 5 ' A in * 

(CO'N CIO) ? 1ST ) ~i 


( con r n ) * 

ISO) * 

04440 



4 

( CON ( 

12 ) > IBC)* 

( CON ( 13)* NGP)* 


( CON ( 14)* 

LP7 ) » 

04450 



5 

( CON ( 

15)? FR ) > 

( CON ( 16)* LOCP ) * 


( CON ( 17 ) » 

IPD) 9 

04460 



6 

( CON ( 

__ J-pR-j-- 





04470 



7 

( CON ( 

21) > I SCR2 ) ? 

( CON ( 22) * SKAL) * 


( CON ( 23 ) > 

I SEC ) ? 

04480 



8 

( CON ( 

24) * NP AG ) * 

( CON ( 25)* YONG)* 


( CON ( 26)* 

I LGD ) ? 

04490 



9 

'TCONl ' 

27) » IREL) » 

TC0'RT"2'8")T LP 577 


~rCONT“29~) *" 

'CPRS’S ) 

04500" 


c 








04510 



0 

EQUIVALENCE 

( CON ( 31) * SCAD > 


( CON ( 41 ) » 

SPAC ) * 

04520 



1 

WEsm i 




~( CON ( 71 ) * 

RAYaTT 

~043T6 



2 

(CONI 

81 ) > PA I A ) ? 

C CON ( 91) * THEA) * 


(CON( 101 ) * 

RI ) * 

04540 



3 

( CON (111)* RES ) * 

( CON (301) * STAT) » 


(CON( 351 ) * 

OIF) * 

04550 


, 

4 

(CON (401) ?e£~ndf) » 

( CON (451) > RHS) 




04560 


c 








04570 



0 

DIMENSION CON ( 

500) * X (21 *33) * 


W ( 21 *33 ) * 

04580 



1 

DWX ( 21 * 33 ) * 



500 ) 












qnonin n j , r» n r> 


A = D I MA / 2 « 0 
B = DIMB/2.0 

rrr == INITIALIZE INDEXES. 

1 F (A T . JB ) _ GO__T 0 201, 

TM ~=~"B “ " 1 

B = A 

A = TM 


201 C = SQRT(A*A - B*B ) 

X LI M = A 
I = 0 

y~= o 

K = 0 

X(ltl) = o.o 

GO TO <100,104 ) » IBC 

*==== this section calculates the gridpoint deformations for an ellipse 

WITH SIMPLY SUPPORfE DREDGES. 

CALCULATE constants 


04600 
"04610* 
04620 
04630 
04640 
04650 
0 4660 
04670' 
04680 
04690 


04700 

04710 

04720 

0473"0" 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 


IF (A .EQ. B) GO TO 102 
XCl »1) = A 
TF= iT(T” 

ET = 1.0 
XC = X! 1 ,1 ) 


04830 

04840 

"0"4850" 

04860 

04870 



n n n 



XLIM = ASSORT (1.0 - ( DWY**2/ ( B*B > ) 1 

IF (DWY * LE o B) G0_JO 203_ 

*=== = THIS SECTION SOLVES THE SIMPLY SUPPORTED EDGE WHEN A = B (CIRCLE) 


102 TE1 » 1. 0/(64. 0#FR> 

TE2 = ( (5.0+GNU)/(l*0+GNU) J*(A*A) 

I a "0 

J = 0 

X C 1 * 1 ) a 0.0 


XLIM = , 


05420 
05430 
‘ 0 5‘44"0' 
05450 
05460 


05470 
05480 
05490 
0 5500 
05510 
05520 


05530 





X C T , 

.1+1 1 .= 0.0 .. _ .. 



06010 



J = 0 

X( I+1*J+1) = 0.0 
EJ = I 



06020 

06030 

06040 



DWY=DEL#EJ 



06050 




IF (DWY *GT. B) GO To 800 



06060 



XLIM 

= ASSORT (1.0 - (DWY**2/(B#B) ) ) 



06070 




IF (DWY . LE * B) GO TO 207 



06080 


800 

MGP 

= K 



06090 



return 



06100 



end 




06110 


SIBFTC 

MS23G2 



06120 


CELIPIT 




06130 



SUBROUTINE ELIPlT ( C » Xj Ys XI* ETj FXP > FEP * GXp s 

GEP > 

DET ) 

06140 


C 





06150 


C 

THIS 

SUBROUTINE DETERMINS THE ELLIPTIC COORDINATES 

XI AND ET > 

06160 


C 

CORRESPONDING TO THE CARTESIAN COORDINATES X AND Y. 



06170 


C 


/ 



06180 


C 

ITERATION IS BY THE NEWTON-RHAPSON METHOD OF SUCCESSIVE 

APPROX » 

06190 


C 





06200 


c 

C 

~ ELLIPTIC FOCAL DISTANCE 



06210 


c 

DET 

= DETERMINENT 



06220 

h-* 

c 

El 

E1 coordinate Value in tixiFTTOnr system 



”06230 

Ui 

1 

c 

FEP 

= PARTIAL OF FIO WRT ET 



06240 


c 

FIO 

= function f 



06250 


c 

FXP 

= P'A"RTT A L OF” FIO "WR1 X I 



06260 


c 

GEP 

= PARTIAL OF GIO WRT ET 



06270 


c 

GIO 

= function g 



06280 


c 

GXP~ 






c 

I DON 

= 1 INDICATES ITERATION IS COMPLETE 



06300 


c 

X 

= X COORDINATE VALUE IN RETANGULAR SYSTEM 



06310 


c 

Tr 

= 2 T coordinate value in elliptical system 



06320 


c 

Y 

= Y COORDINATE VALUE in RETANGULAR SYSTEM 



06330 


c 

all 

other left hand values are temporaries 



06340 


.. c 





U~6~3JU'~~ 



I DON 

= 0 



06360 


100 

IF (Y . NE» 0.0) GO TO 103 



06370 



‘TF'TX 0 "GT7 " TT ”G‘0"~T0"“ 1'OT “ “ 



06380 



XII 

s= o.o 



06390 



ETl 

= ACOS ( X/C ) 



06400 



GO TO 108 



06410 


101 

XI = 

1*0 



06420 



ET = 

0.0 



06430 


102 

FIO 

a X - C*COSH(XI j*COS (ET) 



06440 



FXP 

= - C*SINHIXI)#C0S(ET) 



06450 



XU 

= xi - fio/fxp 



06460 



ETl 

= ET 



06470 


r> n n.n n 



SUBROUTINE RECTNG 06880 

06890 

THIS SUBROUTINE GENERATES THE_TABLE OF GRIDPOINT DEFORMATIONS 06900 

FOR - ” A " R E CT A NG U L AR~~PI L A T E ' W I T H DIME N'S I O'N S" A ~B V~ "~B~AND ” R"l G I D I T Y ‘ D 06910 

06920 

A * PLATE LENGTH 06930 







c A-LP-H AM~ D E F.LE C.T-10 N~ _.C Q.EEE LC. LE Ml .06950 

C ASPECT = SQUARE OF ASPECT RATIO 06960 

C B PLATE WIDTH 06970 

C BETAM = MOMENT COEFFICIENT 06980 

C BETAN = MOMENT COEFFICIENT 06990 

C D PLATE STIFFNESS 07000 

C _ D WX_ _ = D EFL ECTION AJ_ POINT I>J OF_SECOND PANE_ __ __ _ 0_7010 

C” DWXMOE = slope" IN X“5l R“EC f I ONT or" MOMENTS’' ~A PPU ED" ALONG ONE EDGE 07020 

C DWXMOF = SLOPE IN X DIRECTION FOR MOMENTS APPLIED ALONG OTHER EDGE 07030 

C pWXSlM = SLOPE IN X DIRECTION FOR SIMPLY SUPPORTED EDGE 07040 

C DWYMOE = SLOPE IN Y DIRECTION FOR MOMENTS APPLIED ALONG ONE EDGE 07050 

C DWYMOF = SLOPE IN Y DIRECTION FOR MOMENTS APPLIED ALONG OTHER EDGE 07060 

C DWYSIM = SLOPE IN Y DIRECTION FOR SIMPLY SUPPORTED EDGE 07070 

C EM = “COUNT ON NUMBER" OF TERMS 07080 

C EN COUNT ON NUMBER OF TERMS 07090 

C I a ROW INDEX 07100 

C TIC = BOUNDARY CONDITION SWITCH 07110 

C ILIM = NUMBER OF EQUATIONS USED TO DETERMINE REDUNDANT MOMENTS 07120 

C J COLUMN INDEX 07130 

c” ~k ” = “"gr i dToTnt counter" 67140" 

C MN number OF SIMULTANEOUS EQUATIONS 07150 

C MOMENT = COEFFICIENTS OF LHS OF EQUATIONS 07160 

C NGP DUMBER 6f"GRTDP0INTS“-^ ‘ ” * ” 67X76 

C NM COLUMNS IN RHS OF EQUATIONS 07180 

C RHS = RHS OF SET OF SIMULTANEOUS EQUATIONS 07190 

< r ~ ”'w ' = deflection ATToiirri n 'of”'Firbt 'panF“” “ 'otzoo' ' 

C WMOE = DEFLECTION FOR MOMENTS APPLIED ALONG ONE EDGE 07210 

C WMOF = DEFLECTION FOR MOMENTS APPLIED ALONG OTHER EDGE 07220 

Z W3TM snJETnJErnWTTTlT'T^^ 077375 

C X = X COORDINATE ARRAY 07240 

C 07250 ' 

“COmWN DUM “ ~ ” 077 60' 

C 07270 

DOUBLE PRECISION RHS > EANDF » MOMENT 07280 

Z 07290 

0 EQUIVALENCE <DUM( 1 J * CON)» (DUM( 501) > X>» 07300 

1 (DUM(1501)» W) » ( DUM (2251 ) > DWX ) » 07310 

2 7 D'UM f 300 1TV~ JP NTT TDDWC35TJTJ V~"RTV )' ; 07720 

3 ( DUM (4001) 5 MOMENT) 07330 

C 07340 

0 EQUIVALENCE (CONI 1)» DIMTaTT ICONC 277 DIMS) * 67750 

1 (CON< 3)> DIMC)> ( CON ( 4)» DEL ) » (CON( 5)» GNU ) > 07360 

2 ( CON ( 6)> THIC)> 1C0N( 7), SPADj_? ( CON ( _ 8 ) > PRSS > 9 07370 

y rcoNT“'9)"» "NPANll 7 (CONTYOIV"" IS TV» ( CON ( ~ lT )~t~~ "I S“o ) "9 " " "07"380' 

4 (CONI 12)» IBC)» ( CON ( 13 ) » NGP)» ( CON ( 14)» LP7)> 07390 

5 (CONI 15)s FR)» (CON ( 16>» LOCP), (C0N( 17 ) * I PD ) » 07400 

6 ( CON (“IFF fPRH (CON( 19 ) '» CHAP ) i {'CON7"2“6']"l"l"SrRl71 67416 












!U U u| i i -\ | i i '-'j'-' U 



THIS SECTION SETS UP INITIAL CONSTANTS 


D = FR 
A = DIMA 
B = DIMB 


ILIM = 28 
IULIM = ILIM/ 2 
I LLIM a ILIM/ 2 - 
"nTermS =" ilTm"-" 

TERMS = NTERMS 
I = 0 


J = 0 
K * 0 
X ( 1 » 1 ) 


PI = 3. 
CNSTl = 
CNST2 - 


CNST 3 a 
CNST 4 = 
_CN ST5 = 
CNST'6”“= 
IF (IBC 


“ 0 o 0 


1415926535 
4 « 0 * ( A##4 ) / ( D* ( PI ) 
4 . 0* ( A** 3 ) / ( D* ( P I **4 ) 


A*A/( 2«0*D*PI*PI ) 
A/ (2.0*D*PI ) 

B*B/J 2«0*D*PI*PI ) 

"B7(2.owm 

» EQ . 1) GO TO 100 


07580 

07590 

_07600 

07610 

07620 

07630 


07640 

07650 

07660 

"0767'0‘ 

07680 

07690 


07700 

07710 

07720 


07730 

07740 

07750 


07760 
07770 
07780 
' 07 790 
07800 
07810 


LA i to i 


TS FOR 


D PL 


DO 55 JK=1»ILIM 
"D 0 55” L = 1 »T L I M " 
MOMENT ( JK » L ) ~ 0.0 
EN = -1.0 


07830 
07840 
07 850" 
07860 
07870 





non' 


- -&N - -- E-N- -+— 2-* 0 

ALPHAN = EN*PI#B/(2.0#A) 

CNST7 = 8.0*EN#A/(PI*B) 

CNST8 g 4.0*A*A/( ( EN**4 ) * < P 1**3 ) 1 


ASPECT = a*a7( b*b 

r r i = ii 

1 F_ i AL PHAN ■ . LT • 88 . 0)_G0 JO 57 
MOMENT (!f »frfT"= lVo/EN 
RHS (II) » “CNST 8 
GO TO 58 


. .0789.0 . 
07900 
07910 
07920 


57 0 MOMENT ( 1 1 > 1 1 1 j a ( TAN H ( ALPHAN ) +ALPHAN/ 

1 COSH ( ALPHAN ) /COSH ( ALPHAN ) ) /EN 

M31I.1?- 88 CNST 8# (ALPH AN / C O SHU . L P HAN ) / COSH (ALPHAN 


07930 

07940 

07950 

'07960 

07970 

07980 


58 EM = -1.0 

DO 60 J J= I LL IM s ILIM 
EM = EM + 2.0 


:T.ANJ±( A.LPHAJ > > 


07990 

08000 

08010 


0 WOMEN if 1 1 ? J J ) = CNST7* ( iTO / ( ( E M * * 3 ) *TEn * £ N / ( h M * E M } + A S P E C T ) 

1 *{ EN*EN/ (EM*EM t+ASPECT) ) ) 

60 CONTINUE 


08020 

08030 

08040 


70 


Ln 

Lrr\ 


DO 80 II=ILLIM» ILIM 
EN = EN +2*0 

tetan = EN*PT7x ; Tjr3TBi 

CNST 9 a 8.0*B*EN/(PI#A) 

CNST 10 a 4«0*B*B/( (EN**4)*(PI**3) 5 

"aspect = b*ej/Ta*a ) 

III 3 II 

IF (BETAN .LT. 88,0) GO TO 73 

"ITOmETTT^TTT^ 


08050 

08060 

_08070 

08080' 

08090 

081Q0 


TTWEN 
RHS ( II ) = -cnSTIO 
GO TO 75 

13 0 NOME NT ( T7*> 7 f I ) "=“7"fA NTT f BETA NT+FET7 NT 

1 COSH(BETAN)/COSH(BETAN 


os TTcT 
08120 
08130 
’087 40” 
08150 
08160 


/EN 


75 


RHS J I ) = CNST1Q*(BETAN/ COSH ( BETAN ) /COSH ( B ETAN ) -TANH ( BETAN ) ) 
EM = — 1 « (J 


JT8T7TT 
08180 
08190 
' 0 F2"0 OT 
08210 
08220 


DO 80 JJ=1 >IULIM 
EM = EM + 2.0 

0 m Omen rcT7TjJT~'-~ 07579? t ivo tt t EMW37 *t EW* ri 77 rEM * e/ 7 ) +ts'p e c t r 

1 *( en*en/( em*emh-aspect ) ) ) 

80 CONTINUE 

R?7 


ILIM 

NM = 1 

CALL SEOS (MOMENT, RHS, MNj, 


08230 

08240 

08250 

■'08260' 

08270 

08280 


THIS SECTION GENERATES DEFORMATIONS FOR HINGED EDGES 


100 


r= : + r 


751T2W 
08300 
08310 
0 8320 
08330 
08340 



Ui 

On 


105 J = J + l ___ _0 8 3 6 0 _ 

K ~= K+l ” 08370 

K1 = I 08380 

K2 = J 08390 

CALL PACWRD (K1»K2»1) 08400 

JPN(K) = K 1 08410 

VI Jj ?.JJ =0*0 _ 08420 

"i fTn" P a'n’.E o 7 2 r D w X ( I f J faWI T7j1 “““ " 0 8 4 3 0 

EM = “*1 *0 08440 

110 EM = EM + 2*0 08450 

’ ' EJ=I-1 08460 

DWY=DEL*EJ 08470 

CNSTA = EM#P 1 /A 08480 

ALPHAM « CNSTA*B/2 .0 " " “ 08490 

MMM = EM 08500 

CN5T11 = -1.0 08510 

j-p— (YfMMM- 1 ) 7 2- T (MMM-1 )/4)*25 » EG O’) CNST 11 = 1.0 08520 

CNST11 = CNSTll/(EM**5) 08530 

CNST12 = EM^CNSTl 1 08540 

CNST 13 = “COSH { A'LPHAMT " " “ " 08556'" 

CNST14 = (2.0+ALPHAM*TANH (ALPHAM) )/ (2. 0*CNST13) 08560 

0 WSIM = CNSTl*CNSTll*(l - 0'-CNSTl4*C0SH(CNSTA#DWY) 08570 

1 +CNSTA*DWY *SINH(CNSTA*DWY) / ( 2 * 0*CNST13 ) ) * 08580 

2 COS(CNSTA*X( I »J) ) 08590 

IF (IBC .EQ. 2) GO JO __200_ _ __ __ ___ 08600 __ 

wTi»j) “=“ wTYT jT"+“ws i‘m " " " """"08 6i6 

I F ( NPAN » EQ« 2 ) DWX ( I » J ) =W ( I » J ) 08620 

IF (EM .LE. TERMS) GO TO 110 08630 

X(I»J+1) = X(I*J) + DEL 08640 

IF ( X ( I j J+ l ) i LEs (A/2.0)) GO TO 105 08650 

X(I»J+1) = 0.0 08660 

"J = 0“" ' ~ “ " 08670“ 

X<I+1»J+1) = 0.0 08680 

E J = I ' 08690 

DWY=DEL#EJ 08700 

IF (DWY . LE • ( B/2 « 0 ) ) GO TO 100 08710 

GO TO 300 _ __ _ _ 08 720 

C===== THIS SECTION GENERATES DEFORMATIONS FOR CLAMPED EDGES 08740 

C 08750 

— — 

200 CNSTB = EM*PI/B 08770 v 

BETAM = CNSTB*A/2 .0 ________ ____________ ___08780 

CNST15 = -1.0 08800 

IF ( ( (MMM-1 ) /2-< (MMM-1 ) /4)*2 ) .EQ. 0) CNST15=1.0 08810 

CNST15 = CNST 15 / ( EM^EM ) 08876 



CNSTL3t6.jsl-£W*CWSXLS Q6.830 

CNST17 = COSH(BETAM) 08840 

CNST18 = ALPHAM*TANH(ALPHAM)/CNST13 08850 

CN5T19 = BETAM*TANH(BETAM)/CNST17 08860 

EMM = EM/2,0 + 0,5 08870 

M = EMM 08880 

EJ=I~1 08890 

'DWY=DEL*EJ ~ ~ “08 90 o' ” 

0 WMOE = -CNST3*CNST15*EANDF(M)*(CNSTA#DWY *S INH ( CNSTA*DWY ) / 08910 

1 CNST13 -CNST18*C0SH(CNSTA*DWY) ) *COS ( CNSTA*X ( I « J ) ) 08920 

EEE = IULIM 08930 

EMM = EM/2.0 + EEE + 0,5 08940 

M = EMM 08950 

”, “ 0 ~ WMOF = - CN ST 5 *CN S T~15 * E A N D F '( M i *7 c N S f B^xTf > J ) # ST N iTTCN S T B X~ (" 1 7 J T )7 0*8 9 6*0 

1 CNST 1 7 -CNST19*C0SH(CNSTB#X(I»JJ ) )*C0S(CNSTB*DWYJ 08970 

W(I»J] = W(I»J) + WSIM + WMOE + WMOF 08980 

1 F ( NPAM • EQ» 2 ) DWX ( I » J ) =W ( I » J ) 08990 

IF (EM .LE, TERMS) GO TO 110 09000 

X( I , J+l ) = X ( I > J ) + DEL 09010 

I~F (X(T»J+1 ) 'TlE*. ( A? 2 ,“0 ) f GO TO 105 " " ”0902 0” “ 

X ( I > J + l ) = 0.0 09030 

J = 0 09040 

^ X(I+1»J+1) = 0*0 09050 

3 DWYbDEL*EJ 09060 

IF (DWY « LE. (B /2.0) ) GO„TO 100 _ . 09070 r . 

300 NGP = K 09080 

800 RETURN 09090 

END 09100 

$I'BFTC MS2 3G4 ~~ ' ~ ” 09TTI5 

CSEQS 09120 

C 09130 

"" SLTBrOU T I NE" "SEQS” 1"A" TB » N > M y “ 09T40 

C 09150 

C MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 09160 

C ” ““““ ' ’ ' ’ 09l70 

C 09180 

COMMON DUM 09190 

- 0“ EQu‘i VAL enTE “Td'C/M ri“f> CON~) » TDIIMTST)!”) > XT T( dU'mT lOOTf? Y) ~ 09‘2“00 

1 * (DUM l 1 501 ) >W) » ( DUM C 2001 ) jDWX) » ( DUM( 2 501) *DWY) » ( DUM (3001 ) » JPN ) 09210 

2 » (DUM( 3501 ) ,RTV) 09220 

OOIIbITe" PRECISION ' AsBj AMAX jPTVoTTSWApTT 09Z30 

DIMENSION IPIVOT(32) >A<32>32) > I NDEX ( 32 » 2 ) >P I VOT ( 32 ) » B ( 32 » 2 ) 09240 

EQUIVALENCE ( I ROW > JROW ) > ( AM AX > T > SWAP ) t ( ICOLUM > JCOLUM ) ’ 09250 

~ "C ~~ 09260 

C===== INITIALIZATION 09270 

C 09280 

10 OETERM=1.0 ■ 09290 




MOu I I i I ' T i ^ oiu | | I ; ! u 


15 DO 20 J=lsN __ 9 9300 

2 6” fpTvofrJ) =0 " " 09310 

30 DO 550 1 = 1 9*4 09320 

09330 


====SEARCH FOR PIVOT ELEMENT 09340 

09350 

40_AMAX = 0*0 _ _09360 

”45 DO 105 J~=l ?N “ ‘ ~ 09370 

50 IF { IPlVOTt J)-l) 60 ? 105? 60 09380 

60 DO 100 K = 1?N 09390 


70 IF ( IPIVOT (K5-1 ) 80? 100? 740 09400 

80 IF(DABS(AMAX>-DABS(A,( J?K) )) 85 >100, 100 09410 

85 IROW= J • 09420_ 

90 ICOLUM=K " ' 09430 

95 AMAX=A( J?K) 09440 

100 CONTINUE 09450 


105 CONTINUE 09460 

IF UMAX) 128?107?128 09470 

107 PRINT 108 09480 

108 FORMAT T22hT MA T RTX I S"~ S I N G U L A _ R" • )'“ * ” 09490 

NCE = 1 09500 

GO TO 740 09510 


128 ‘IPIVOT ( ICOLUM) * IPI VOT ( ICOLUM ) + 1 09520 

09530 

= = = = = INTERCHANGE ROWS to PUT PIVOT ELEMENT ON DIAGONAL 09540 

“ ~ 09550 

130 IF ( I ROW- 1 COLUM ) 140? 260> 140 09560 

140 DETERM=-DETERM 09570 


150 DO 200 L=1»N 09580 

160 SWAP = A < IROWjL ) 09590 

170 A( IROW*L)«A( ICOLUMsL) 09600 

2 00“A( I COLUM ?‘ LT=SW' AP " " ' ” " 09~6l0 

205 I F I M ) 260? 260? 210 09620 

210 DO 250 L = 1 ? M 09630 


220 SWAP=B( IROW?L) 09640 

230 B ( I ROW » L ) = B ( IGOLUM ?L) 09650 

250 B( ICOLUM?L)=SWAP 09660 

'?~6’(T I~ND"EX(T9 lT=TROW~~" “ ” 09~6"70 

270 INDEX! I ?2)=ICOLUM 09680 

310 p I VpT ( I )=A( I COLUM? I COLUM) 09690 


320 CONTINUE 09700 

09710 

= t:== = DI VIDE PIVOT ROW BY PIVOT ELEMENo 09720 

09 730 

330 A( ICOLUM? ICOLUM) =10.00-1 09740 

340 DO 350 L = 1 »N 09750 


350 A ( I COLUM > L ) =A ( IC0LUM?L) /PIVOT ( I ) 09760 


3.&5--J-^jC-M^-^-8-0-»-_380l.s---3j6-0 - Q9JJD 

360 DO 370 L=lsM 09780 

370 B( IC0LUM»L)=B( I COLUM s L > /P I VOT ( I > 09790 

C 09800 

C=====REDUCE NON-PIVOT ROWS 09810 

C 09820 

_3_80_DO 550 Llfl»N __ _ _ ,.09830 

390 fF<Ll-TC0LUM) 400 » 550s 400 0"9840 

400 T=A(L1» ICOLUM) 09850 1 

420 A ( LI s I COLUM ) =0 . 0 09860 

430 DO 450 L=1>N 09870 

450 A(L1»L>=A(L1»L) —A( ICOLUMsL)*'T 09880 

455 I F ( M ) 550 s 550s 460 09890 

4 6*0 *~DO 500 "L=T7M 0*9900 

500 B ( Ll »L)=B(L1 * L. ) — B ( ICOLUM»L)*T 09910 

550 CONTINUE 09920 

C 09930 

C=====I nTERCHANGE COLUMNS 09940 

C 09950 

600 DO “710 T=r*N " " 09960* " 

610 L=N+1-I 09970 

620 IF ( INDEX(Lsl)-INDEX(L>2) ) 630s 710s 630 09980 

630 jroW= INDEX(Lsl) 09990 

640 JCOLUM=INDEX(Ls2) 10000 

650 DO 705 K = lsN 10010 

6 6 0 S W A P = A IK'; J RO W“) 10020“'" 

670 A<K»JROW)=A(Ks JCOLUM) ' 10030 

700 A(K, JCOLUM)=SWAP 10040 

7 conT'I.nTDe ' I 10050 

710 CONTINUE 1 ’ 10060 

740 RETURN 10070 

'end “ " " 7 1 COS'D 

SIBFTC MS23G5 10090 

CTRpZOD 10100 

3U 3R0UTINE TR p2oD " ' ' ' 10110 

C THIS SUBROUTINE READS IN THE TRAPEZOIDAL DEFORMATION DATA FROM 10120 

C PUNCHED CARDS. THE CODES ARE BROKEN DOWN AND REASSEMBLED IN THE 10130 

“ ~ “ c format NeceS'sarT for’ treT~raY ”T r~Ac e pWg^amsv" 10Y40 

C ' 10150 

C DWX = SLOPE IN X DIR* AT POINT LOC 10160 

C~~~~ DWY = SLOPE IN Y DIR. 10170 

C ELM = ELEMENT VALVE AT LOC 10180 

C_ __IBY 5=1 INDICATES^POII^IS OUTSlDE_PLANFORM BOUNDARY _ 10190 

”“C "f COL =“"COL0 mN "NUMBER " 10 2*00 

C IDIR = DEGREE OF FREEDOM 1=X» 2=Ys 3=Zs 4=TXs 5= TYs 6=TZ 10210 

C ILD = LOAD NUMBER OUTPUT BY SAMIS (COLUMN CODE) 10220 

c Trow t^ow**num^er 10230 



c 


item 

= TEMPORARY 


r 

I S" "A “PART" OF 


10240 


C 


JLD = 

LOAD NUMBER DESIRED. 

THE LOAD NUMBER 

"THE 

10250 


c 



ELEMENT CODE 

GENERATED 

BY SAMIS. 



10260 


c 


LOC 

= COORDINATE 

LOCATION 

CODE 



10270 


c 


M 

= GRIDPOINT 

COUNTER ' 




10280 


c 


NCRD = 

NO. OF ELEMENT DATA CARDS TO BE READ 

IN. 


10290 


c 


NGP 

= NUMBER OF 

GRIDPOINTS 



10300 


c 


SCLFAC 

= SCALE FACTOR TO MULTIPLY DEFLECTIONS BY 


10310 


c 


W 

= DEFLECTION 

AT POINT 

LOC 



10320 


c 


X 

= X COORDINATE ARRAY 




10330 


c 


XS 

= X COORDINATE AT POINT LOC 



10340 


c 


YS 

= Y COORDINATE AT POINT LOC 



10350 


c 








10360 




common 

DUM 





10370 


c 








10380 



0 

equivalence 

( DUM ( 

1)9 CON) 9 

( DUM ( 501) 

9 X ) 9 

10390 



1 



( DUM (1501 ) 9 W>9 

( DUM t 2251 ) 

9 DWX ) 9 

10400 



2 



( DUM ( 

3001 ) 9 JPN ) 9 

( DUM (3501) 

9 RTV) 

10410 


c 








10420 



0 

EQUIVALENCE 

( CON ( 

1) 9 DIMA) 9 

(CONI 2)9 

DIMB ) 9 

10430 



1 

(CONK 

3)9 DIMC) 9 

( CON ( 

4)9 DEL)9 

(CONI 5)9 

GNU) 9 

10440 



2 

(CONI 

6)9 THIC ) 9 

( CON ( 

7) 9 SPAD) 9 

(COM 8)9 

PRSS) 9 

10450 



3* 



MMUWUII 

10) , IS I ) 9 


I SO ) 9~ 

10460 

> ON 


¥ 

( CON ( 

12)9 I BC ) 9 

( CON { 

13)9 NGP ) 9 

( CON ( 14)9 

LP7 ) 9 

10470 



5 

( CON ( 

15)9 FR)9 

( CON ( 

16 ) 9 LOCP ) 9 

( CON ( 17)9 

I PD) 9 

10480 



6 

{ CON ( 

18)9 IPR ) 9 

( CON ( 

19 ) 9 CHAP ) 9 

(CON (20)9 

I SCR1 ) 9 

10490 



7 

( CON ( 

21) 9 1 SCR2 ) 9 

( CON ( 

22) , SKAL) 9 

(CONI 23)9 

ISEC ) 9 

10500 



8 

( CON ( 

24 ) 9 NPAG ) 9 

( CON ( 

25 ) 9 YONG ) 9 

( CON ( 26)9 

ILGD) 9 

10510 



9 

(CONI 

27)9 I REL ) 9 

( CON ( 

28 ) 9 LP 5 ) 9 

(CONI 29)9 

CPRSS) 

10520 

> 

c 








10530 



0 

EQUIVALENCE 

( CON ( 

31 ) 9 SCAL ) 9 

( CON ( 41 ) 9 

SPAC) 9 

1Q540 



1 

( CON ( 

51 ) 9 PRES ) 9 

rcom 

61) 9 PLAIT) 9 

( C"0"N ( 71)9 

"RATA ) 9 

10550" 


- 

2 

( CON ( 

81 ) 9 PA I A ) 9 

( CON ( 

91 ) 9 THEA ) 9 

( CON ( 101 ) 9 

R I ) 9 

10560 



3 

(C0N(111)» RES)9 

( CON (291 ) 9 STAT ) 9 

( CON (351 ) 9 

OIF) 9 

10570 


4 ro I f'( 1 ) , I DX ) 9 ( o' I F ' (TTYl DY" j" 7 { o I F ( 3 ) »X1 ) » ( 01 F ( 4 ) »Y1 ) » ( 01 F ( 1 1 ) >N2) 10 580 


C 10590 

0. DIMENSION CON ( 500 ) » _X(21»33)»__ __ _ Ja/ ( 2 1 > 3 3 ) » 10600 

1 D'WXt 21733“) »“ JP'NT~ 500‘)"» 0TFT12") 10"6"ld 


C - 10620 

DIMENSION L0C(3)> ILDI3)* ELMO) 10630 

C ' 10640 

READ ( I Si » 500 ) JLD 9 NCRD 9 SCLFAC » Xl 9 Yl 9 I DX » I DY 10650 

__500 FORMAT (J2I5»3E10. 0 9215 ) _ „ _ _ _ 10660 

W"rTT E~ (I s 0 V5'0 3 ) S CLFAC 10670 

503 FORMAT <1H1» 42HSCALE FACTOR FOR TRAPEZOID DEFLECTIONS IS 10680 

1 E16.491H.) 10690 

WRITE ( I SO 9 505 ) XI 9 Y 1 


10700 






IF ( I BY „EQ. 1) GO TO 104 11180 

^ x I ROW ' """ ~ 11190 

K 2 = ICOL 11200 

CALL PACWRD (K1»K2»1) 11210 

I F ( ( IROWdLEsIR) * AND. ( ICOL* LEe IG) ) GO TO 32 11220 

IF( ( IROW.GT.IR) .AND'i { ICOL.GT,IC) ) GO TO 40 11230 

_GO TO _104 _ _ _ _ __ 11240 

32“ If =" i row ” “ 11250" 

L = ICOL 11260 

XOOL) = ICOL - 1 11270 

X(K,L)=X(K»L)*DEL 11280 

C 11290 

C====- STORE ACCEPTABLE DATA 11300 

I F f { IDIR.EQT3) -AND'. (N27EQ.1) ) W{K»L)'=ELMTjT*SCL'FAC‘ ' 'll 3 id" 

IF C ( IDIR,EQ*3) *AND. ( N2*EQ*2 ) ) DWX ( K * L> =ELM ( J ) *SCLFAC 11320 

IF ( IDIR »EQ* 3 ) M - M+l 11330 

IF (IDIR .EQ* 3) JPN(M) = Kl 11340 

GO TO ( 104 > 34) »N1 11350 

34 DWX(K»L)=W(K»L) 11360 

GO TO “To 4 “ 11370 

40 IF<NPAN-2)104>44>104 11390 

44 K= I ROW-I R 11400 

M *L= I COL-I C 11410 

£ IF< ( IDIR.EQ»3) *AND. ( N2*EQ„ 1 ) ) DWX ( K > L ) = ELM ( J ) *SCLFAC 11420 

IF( ( IDIR.EQ.3) .AND. (N2.EQ.2) ) W ( K » L ) = ELM ( J ) #SCLFAC 11430 

To 4 COTTinDI 11440“' 

NGP = M 11450 

800 RETURN 11460 

END 11470 

JIBFTC MS23G6 11480 

CLRGDEF - 11490 

SUBR 0 UT“I N E“T R G D E F” ‘ "" ll‘500“ 

C 11510 

C THIS PROGRAM USES EQUATIONS DERIVED FROM AN ENERGY METHOD 11520 

C DEVELOPED IN TIMOSHENKOS THEORY OF PLATES AND SHELLS, p. 419 TO 11530 

C 424 TO FIND THE APPROXIMATE LARGE DEFLECTION SOLUTION FOR A 11540 

C RE CTANGULAR PLA TE. __ __ 115 50 ^ 

'C A HALF RECTANGLE LENGTH 11570 

C A1 CONSTANTS IN CUBIC EQUATION 11580 

C B = HALF RECTANGLE WIDTH 11590 

C Cl CONSTANTS IN CUBIC EQUATION 11600 

C CONI = CONSTANTS IN LARGE DEFLECTION EQUATION 11610 

' “c con!’ =“ ‘CONS TAN TS""Tn“" LARGE “DEFLECT ION" EQUATION “11620 

C CON3 = CONSTANTS IN LARGE DEFLECTION EQUATION 11630 

C CON4 = CONSTANTS IN LARGE DEFLECTION EQUATION 11640 

C~ CON 5 = CONSTANTS' IN LARGE DEFLECTION' EQUATION ' ”” ' ™ TTSTscT 









I NE6 = 0 12590 


112 


C DETERMINATION OF SMALL DEFLECTION THEORY AND LARGE DEFLECTION 12610 

C THEORY PRESSURES. 12620 

Q2 = (WO**3 ) /CONS 12630 

Q 1 = PRSSS-j Q 2 12640 

QC = Q2*CON5 12650 

IF__iQC ._G_T_. 0.0) „GO„TO 114 __ _ _ 12660 

INEG = 1 12670 

114 CQC = ABS(QC)**(1. 0/3.0) 12680 

I F ( INEG oNE< 1 ) GO Tp 116 12690 , 

CQC = -CQC ' 12700 

c this section determines the deflection and slopes. 12710 

116 IF(NTIMES.EQ.I) GO TO 103 12720 

C0NST4=Ql" ~ ”12 730 

CONST5=PRSSS 12740 

CONST 6=CQC 12750 

gQ ■ JO 105 12760 

103 C0NST1=Q1 12770 

CONST 2 = PRSSS 12780 

CONST3“=CQC ~ 12790 

105 DO 104 1 = 1 » NGP 12800 

Kl = JPN ( I ) 12810 

CALL ^ ■■ PACWRD ( Kl TkTTT) 1 2 820 

cx = P I #X ( Kl » K2 ) / ( 2 • 0*A > . 12830 

EJ=K1~1 12840 

7? = deL*E'D ~ f2350 

GY=PI*YY/(2.*B) 12860 

T El = U(K1»K2>*(ABS(Q1/PRSSS) ) 12870 

= CQC# COST CX ) ^co'STCYl 12880 

104 U ( Kl > K2 5 = (TEX + TE2J/2.0 - 12890 

I F ( NT I MES . EQ . 2 ) GO TO 700 12900 

DO 12 0"'I = 1)2T” “ ' ' T2'9T0 

DO 120 J = 1 » 33 12920 

120 pUXt I 9 J ) =U ( I 9 J) 12930 

70y-cMTTNUE * ' ’ ‘ “ ‘ IM 0 

800 RETURN 12950 

900 WR I TE (I SO 9 500 ) 12960 

’’"'TO 0 — FO'RWAT C TBIT 9"9TTC NPUT "E RIRTJR TT AR'G'E“D'EFUECTTOrf~R ETTU TR ED“ FCJR “PUA'NFORW 12970 

10THER than RECTANGLE. ) 12980 

STOP 12990 

_ ITOOO 

SIBFTC MS23G7 13010 

C DEFRES 13020 

SWifOUrfNT^DEFRES TIFT9‘NOPRTr “ 13030 

C 13040 

C THIS SUBROUTINE PRINTS OUT THE PLATE DEFLECTION DATA. 13050 


C 


13060 






uuu|u I j I I | i ujuu 


-DAXA JH. I NG Z.6HHJ NG E a/- J-XH/_UL_/.s_ . CLMPK6 HC L A M P E /. ?. _ C.C/.1 H 0 1 


this section multiplies the unitized deformations by the pressure 

LOAD. 


IS7 = ISO 

IF ( NO_PRT * EQ. 0) IS7 = ISCR] 

DO 101 f = 1 > NGP 

K 1 = JPN { I ) 

CALL PACWRD ( K 1 > K2 ? 2 ) 

EJ=K1-1 

R(I) = X (K1 >K2 ) 

S( I ) = DEL *EJ 

IF(fLRG.EQ.l) GO “TO 100 
I F ( CHAP . EQ • 3 » ) GO TO 99 
111) = W(|C1*K2>*(CPRSS-PRSS) 

57x -['Y ) - dwxTk iTK2 ) -7^RSS 

GO TO 101 
99 T ( I ) =W ( K.1 »K2 ) 

DT X (I) =D WX ( K1 5 K2) 

GO TO 101 

100 T ( I ) = DUX ( K1 » K2 ) 

dTITTiT^ UT ki >kz ) 

101 CONTINUE 

r hTS"~S E' en ON™ PR In TT _ THT~T lTtx“^ D^TA'Dll^ G~“ I N FORM A TTONL ~ 


CALL PAGE ( I PD 9 LINE 9 IS79 IDT) 


LINE 9 


) GO I 


IS7 9 


Mil 


l i LKG .tUi 

WRITE- ( IS7>529 ) 

FORMAT (IHO 9 38 X 9 38HW INDOW DEFORMA 
THD " A r "A7TH ‘ ”,T9X-,T3 Hi L"AR GT" 'DTFE EtT 1ffiC&KUT7 IK" r * 
GO TO 608 
WRITE ( I S7 > 500 ) 


EEram 


"303 
10? 0 
1 


2 


7HD A T A/1H 1 
ICHAP = CHAP 

”tf~ T " mu *vret “it”g‘0' toko 2 • 

CONC « H I NG 
CF = CH 


IF f I BC » NE. 2 
CONC = CLMP 
CF = CC 

’~GO”T o’" ( TO 2 9*1 0 3"> 1 02f") _ 9 fCHA P """ ' 

WRITE ( I S 7 9 50 1 ) (RT30( IJ ? I = l»3 ) 9 D I MA 9 RT33 S D I MB 9 

RT33 9 SKAL 9 tRT36(I ) 9 1 = 192) 9 THIC9 (RT37(I)>I- 

<RT38 ( I ) 9 1 = 1 ,2 ) 9 SP AD 9 (RT39( I ) 9 1 = 1 92) 9 PRSS, 


= 192)9 


CONC 9 


NPAN 9 


CF 


13830 

13840 

OT50" 

13860 

13870 


13880 
13890 
13900 
1 3"9 YCT 
13920 
13930 
TW 
13950 
13960 
13970 
13980 
13990 
14000 


■168 



* WRITE ( I 57 > 500 ) 14230 

GO TO < 108»109»110) » ICHAP 14240 

108 0 WRITE ( I S 7 , 5 0 1 ) (RT30( I> *1=1*3) * DIMA> RT33> DIMB> 14250 

! RT35 rSTA'CT < RT36 ( I ) »'l = l”»"2 )"> Tfi I C » 0*73 7" T1 )" * I = 1 72 ) »”nTPAN 7 “ "14260" 

2 (RT38<I ) *I=1»2) » SP AD > (RT39< I ) » 1=1 >2} » PRSS, CONO CF 14270 

GO TO 111 14280 




nnnnn nlnn r|nn njn n n 



R ES { IJ+ 41) = XS X 
RES( I J+ 51) = VS Y 
RES ( J_J+ 61) _= XS X 
RES"(lJ+ 71") n YS "Y 
RES { I J+ 81) = ZSEXT 
RES I I J+ 91) = BETA 


( I J+1U1 ) = PSI 
RES(IJ+111) a PA I 
RES I I J+121) = THETA 
"RESTlJ+lTl )“ = ~Sai 
RES ( I J+141 5 a ERROR 
RES ( I J+151 5 = BLANK 


RES ( I J+161 ) = BLAN 
R ES ( I J+ 1 7 1 ) « BLANK 

“COmRW WM 

0 EQUIVALENCE 


1 { DUM ( 1001 ) » Y), 

2 (DUM(250l) s DWY ) » 

‘CTTOtT I VXL1ERCE 

1 ( CON ( 3) 9 DIMC) 9 

2 (CON( 6)9 THIC)» 


3 ( CON ( 9)9 NPAN)9 

4 ( CON ( 12)9 IBC)9 

5 (CON< 15) » FR)9 
~6~" re ON" (""18 )T " I PR )~9 "“ 

7 (CON( 21) 9ISCR2 ) > 

8 ( CON ( 24)9 NPAG)9 


CO 


COORD. 

COORD. 

COORD. 

COORD." 


SECONDARY 

SECONDARY 

SECONDARY 


ENTERING RAY 
ENTERING RAY 
LEAVING RAY 


OF S~E C ON D A R Y“L E A V IN G ‘ RAY" 


( DUM ( 1)9 


( DUM (1501) , 
(DUM( 3001 ) 9 


1 coirr 
(com 

( CON ( 


( CO 
( CON ( 

( CON ( 
"(CON f 
(CONI 
(CONI 


13) 9 
16) 9 

Toy; 

22) 9 
25) 9 


. CON ) 9 


> W ) 9 
• JPN ) 9 

■ CSTHATT 
DEL) 9 
SPAD ) 9 


1ST 
NGP ) 9 
LOCP) 9 
'"CHAP") ^ 
SKAL) 9 
YONG) 9 


(DUNK 501)9 X ) 9 


I DUM (2001) 9 DWX ) 9 
( DUM (3501) 9 RTV) 


(CONI 
( CON ( 14) 9 
( CON ( 17)9 

”( C0NT20 ) T 

( con ( 23)9 

I CON ( 26)9 


29 


tcotk zrr 

(CONI 5)9 
( CON ( 8)9 


) 9 

14) 9 
17) 9 


“D i ■mbit- 

gnu ) 9 
PRSS ) 9 


) 9 

LP7) 9 
I PD ) 9 

fScRlT* 
I SEC ) 9 
I LGD ) 9 


CP 


14640 

14650 

14660 

’14670" 

14680 

14690 


14 
14710 
14720 
' l47“30“‘ 
14740 
14750 


14 160 
14770 
14780 
TWO “ 
14800 
14810 


14820 

14830 

14840 

T4F50'' 

14860 

14870 


14880 

14890 

14900 

14910 " 

14920 

14930 


0 







170 



DO 100 1=1, N 
DELTAPt I ) « 1.0 
RAD = „ 0 1. 01 1 453 _ 2 £ 2 5I9_ 

"deg'= i.07rad‘ 

SEC = 206264. 8064- 
PI = 3.141592653 


15170 

15180 

15190 

15200* 

15210 

15220 






171 


E < 1 ) = XP + G*S 1 ( 1 ) ™ """ 

E( 2 ) = YP + G*SK 2 ) 

E< 3 ) = G*S 1 ( 3 ) 

do 304 T^TTi — — — — 

v<n = Ed) 
iby_ = o 

caiP bondrV “TxpT'yT; TbyT 

IFdBV.EQol) GO TO 800 

— L§. 1 > V»XP , Yp , p I ,N,D,DELTAP,SNl,I SQ,pRSS ,CPRSS ) 
R t S ( 3 ) — XP ~~~ ... T , _. n . ,, rrr . 

RES ( 4 ) = yp 

call 3 0 NDRY ( XP , YP , I BY ) 

IF (I BY 7 EQ. 1 ) GO TO 801 
SAr = PA I + THETA 

S2 - f l * ~ .-fP s . ( BETA)^COS(SAn - SIN (BETA ) #S I N ( PS I) *S I N ( SA I) 

S 2 2 ) = SIN ( BETA ) *COS { SA lT"+ COSTbETA ) #S I N ( PSTT*S“iN'(SAI ) 

52 ( 3 ) = COS(PSI) *SIN(SAI) ' 

IF { T HE TA « i NE •> 0. 01 G O TO 330 


-C-Z5 EX I. 3 *.40 2„ 


CALL B ONDRY 
IF ( I BY o _ EQ“ 
SAr = PA I + 


.274 - 


°. DX = S1(1)*AA - BB*(C0S(BETA)*SIN(PAI ) + STNfRF 
I C OS ( P A I ) ) ~ — — -• —15 

0 DY = Sl(2)*AA + BB*(COS(BETA)*SlN<PSI)*COS<PAl J 


SIN(BETA)*SIN(PSI }# 


sinIpai n J * AA + BW(COS(BETAlilsIN(PSI )*cos(PAn - sin ( £ 

D Z d~"sl"(~3T^ : AA ’4^"“C0TrPST)' J ZroTr'PA lT*BB 

EE( 1 ) = E( l ) + DX 
EE ( 2,1 = E ( 2 ) + DY 

t t (3) = E l 3 ) + DZ — — — - — 

DO 350 1=1,3 
E(I) = EE ( I ) 

"XS~'= ~ETT) -~TT3T»S2' (TjTST(^) 

YS = E ( 2 ) - E(3)*S2<2)/S2<3) 

RES ( 5) s XS 

-fTTFr-- — — — — _ 

CALL BONDRY (XS, YS, I BY ) 

IF ( I BY .EQ. 1 ) GO TO 802 

"I'F ~TR P'ATT ' . EOT "~2T“PIZSS" = “ - TF^R'S'S-Cp-R SC] 

CALL Trace (S2»E»XS» YSsRI ,N,D,DELTAP, SN2, ISO, PRSSjCPrSS 
RES ( 71 = XS 


SIN (BETA)* 


CALL BONDRY (XS, YS, IBY) 

_ I _F_dBY .EQ. 1) GO TO 803 
“CALL" "CR'OP'CD"" TSMC, “S1T2T P7fSV7\P7T5T ' 
THETAN = ASIN(APNS) 

ERROR = (THETAN - THETA 1 ^SEC 
”s a i = s A I / Rad" ~~~™- 


15830 
' 15840 
15850 
15860 
15870 

TTSW 



non 


R ES ( 15) =_E_RROR „ _ _ _ _ __ . 15890 

"GO TO 900 15900 

800 RES { 3 ) “ 1 » E+9 15910 

RES { 4 ) = 1 o E+9 15920 


801 RES ( 5 ) = 1 « E+9 15930 

R ES ( 6 ) = 1 » E+9 15940 

802 RES { 7 ) =1 o E+9 __ JL5950 

RES ( 8) = 1 * E+9 ,15960 

I F ( NPAN o EQo 2 ) PRSS=- ( PRSS-CPRSS ) 15961 

803 RES( 15 )=1.E+13 15970 


900 RETURN 15980 

END 15990 

TIBFTC MS23G9 16000 

CTRACE “ " " ' T6010" 

SUBROUTINE TRACE ( CS 9 E » X , Y , R I ,N , D » DELTAP » CR • I SO» PRSS , CPRSS ) 16020 

16030 


THIS SUBROUTINE TRACES THE RAY THRU THE WINDOW 16040 

16050 

0 DIMENSION CS ( 3 ) » E ( 3 ) * CI<3)» CN(3)> CR<3)> DELTAPI 4)» RK 5)» 16060 

1 D(3T ----- ~ ” 16070 

C 16080 

ZP = 0.0 16090 









c 16350 

C "~ THIS SUBROUTINE PERFORM5 THE ITERATION TO FIND THE POINT XP>Y~P ON 16360 
C THE DEFORMED SURFACE o 16370 

C . 16380 

COMMON DUM 16390 

EQUIVALENCE ( DUM( 1 ) »CON ) » ( CON < 1 ) » DIMA ) » ( CON( 2 ) »DIMB) 16400 

C _ _ _ _ 16410 

" “ DTMENS fON“cT(T» r D ELT AP CIO) 16420* 

C 16430 

J = 1 16440 

DELTAA « 0*0 ' 16450 

101 CALL INCOTB ( XP » Yp» OWFj OWX j OWY j K ) 16460 

PELZ a OW F*DE LTAP(K) _ _ __ JL6470 

" A = ( DELZ~ - DELT AA*C I ( 3"") ) *C I < 3 ) “ ~ f6~480” 

IF { ABS [ A ) - 1.0E-06) 800>800>102 16490 

102 DELTAA = DELTAA + A 16500 

XP = XP + A*CI ( 1 ) 16510 

YP = YP + A*CI (2) 16520 

D I MA= 2 o#D I MA 16530 

DTMB = 2.^DTMB “ “ " “ 16540 

IBY=0 16550 

CALL BONDRY(XP>YP» IBY) 16560 

„ T6F70~ 

DIMB=DIMB/2. 16580 

I_F j_I_BY o EQo 1 ) GO TO 800 ___ 16590 

J = J+T" ----- “ ~ "16 600"' 

IF { J-2 5 ) 101 > 800 » 800 ' 16610 

800 RETURN 16620 

END ~ 16630’ 

SIBFTC MS23H1 16640 

CINCOTB 16650 

SUB R'oUTT N E"~ INC OT B" ’"( X P j" P "> ~0 Wp > 6W"X » ’ 0" W Y~» "I P*G )’ '"16660” 

C 16670 

C THIS SUBROUTINE GENERATES THE TABLE OF INTERPOLATION COEFFICIENTS 16680 

T — r- * * : 16690” 

DOUBLE PRECISION A j BR > A1 » A2 » A3 * A4 16700 

C 16710 

- C0W - TO — 0ORT 16720“ 

C 16730 

0 EQUIVALENCE ( DUM ( 1)? CON)> (DUM( 501)? X)» 16740 

r~~~ ■ ■ (dum( twi ) 7 wn dum( 2251 > » dwx n tstfet 

2 ( DUM ( 3001 ) > JPN ) > ( DUM (3501 ) > RTV)> 16760 

3 <DUM<4001), BR)» (DUM(6l00)> B) 16770 

- 16T80 

0 EQUIVALENCE (CON< 1), DIMA) ? (CON( 2)> DIMB)» 16790 

1 { CON ( 3)» D I MC ) > ( CON ( 4) » DEL ) s (CON( 5)? GNU ) > 16800 

2 ( corTT GT> I H I C ) > (coN< 7TT~~5157uin rOTR! 8 ) ; PTS'ST? ITSTO 







174 



2 ( O I P ( 8 ) »C0NST4) »<0IF<9> >C0NST5> » < OIF (10) ? CONST 6 ) »(0IF(12)»MIBP) 16980 

16990 

DIMENSION CON ( 500 ) » X(21>33)> OIF(IO), W I 2 1 ? 3 3 ) !> DWX(21>33)> 17000 

' ' ' 17010 

DIMENSION A(25) 5BR(32»32) »B(36»25) »A1 (25»2) >A2(25>2) ? 17020 

1 JPNOOO) »RTV( 500> »A3<25>2) »A4(32»2)*WC(36»2> __ __ _ 17030 

17040 
17050 
17060 

iToTo 

17080 
17090 


C 

DATA PI/3 <>14159265/ 
C _ 

JUMP'S 5 

IF(MIBP) 304»304»400 
304 I CHAP = CHAP 


C 

C 




175 



GO TO 308 
I 3= I DY+1 
I 2 = I_3 - 5 

•j'2=iDX+r 

J 3= J2 + 5 
GO TO 308 


17490 
17500 
17510 
' 17520 
17530 
17540 



B ( K > 2) = (U**4) *(V **3) __ _ 17740 

bTkT“ 3)"T (“u¥* 3 )*( V*#-4*f ~~ 17750" 

B(K> 4) a (U**4)*( V*#2) 17760 

B(K> 5) = (U**3)*(V**3) 17770 

B ( K > 6) = (U##2)*CV**4) 17780 

B(<» 7) = (U**4)*(V ) 17790 

B ( K j> 8) = (_U**3L*< V **2) _ _ 17Sp_q_ 

B T"k » ~ 9T ~= ( 0 #* iT *'( V# * 3) “17810" 

B<K»10) = tu ) * ( V**4 ) 17820 

B(K»ll f ) = (U**4) 17830 

8 ( K » 1 2 ) = ( U #“* 3 )'*f V ) 17840 

B(K»13) *» ( U**2 ) *( V*#2 ) 17850 

B ( K ’ 14 ) = (U )*<V*#3) 17860 

B ( K » 15 ) "= TV**4>” " 17870" 

B ( K » 16 ) = (U**3) 17880 

B(K»17) = ( U-iHf 2 ) * ( V ) 17890 

B ( K » 18 ) = (U ) * ( V*#2 ) 17900 

B ( K » 19 ) = ( V**3 ) 17910 

B ( K » 20 ) = (U**2) 17920 

"bt k >~2 rr= ( u - ■ r»Tv > ~ " 17930 " 

B<K>22) = (V**2) 17940 

B ( K * 23 ) = (U" ) 17950 

_ TbTk» 24) = TV j 17960 

-J B(K>25) = 1.0 17970 

WC(K»1)=W( I »J) 17980 

' WCT|<T2 f=DWX~{ I ? JT ‘ ” " “ 17990 

IF < ILRG.NE.l ) GO TO 201 18000 

WC(K»1)»0.5*(W( I > J ) &CONST2* ( ABS (CONST 1 /CONST2 ) )+CONST3*COS(PI*U/ 18010 

1 ( AA*2. ) )#COS( PI*V/ (BB*2. ) J ) 18020 

IF (NPAN.EQ.2 ) WC ( K» 2 ) =0*5* ( W( I » J)*CONST5*( ABS (CONST4/CONST5 ) )+ 18030 

1 CONST6*COS(PI*U/(AA*2.))*COS(PI*V/(BB#2* ) ) ) 18040 

20 1 T F ("ABS rx ( I "* J )“' X"1P -u ) - 1*8 0 E -7)2 0T» 2 0 2"t 206 18050” 

206 DO 210 LM=1 >25 18060 

210 R ( KuLM) =0« 18070 

202 CONTINUE 18080 

DO 240 K = 1 » 2 18090 

DO 240 I =1 » 25 _ __ 18100 

DO 240 J = 1 > 36 18120 

240 A4( I »K) =A4( I »K) +B( J » I) *WC ( J»K) 18130 

C 18140 

C===== THIS SECTION MULTIPLIES THE COEFFICIENT MATRIX BY ITS TRANSPOSE 18150 

C 18160 

50--y 2 - 4 --y = -|“-25 18l70" 

DO 124 J=1 >25 18180 

122 BR( I » J) = 0.0 18190 

DO 124 K = 1 > 36 18Z0CT 




_.]-2-4 &R C LiOJ- =_BRJU j-lUdL-E 18210 

c 18220 

C = = === THIS SECTION INVERTS THE INTERMEDIATE MATRIX. 18230 


C= = === THIS SECTION CALCULATES THE COEFFICIENTS. 18240 


■ 

c 


NR = 25 
NC = 2 

18250 

18260 

18270 




CALL SEQS ( BR » A4 j NR »NC ) 

DO 280 I = 1 » 25 

GO TO (260,264»268!>300) sll 

18280 

18290 

18300 



260 

A 1 ( I »1)=A4( 1*1) 

18310 




A1 f I »2)=A4( I > 2 ) 

18320 




GO TO 280 

18330 



264 

A2U »1)=A4( I »1) 

18340 




A2 < I »2 ) =A4( 1*2) 

18350 




GO TO 280 

18360 



268 

A3 1 I s 1 ) =A4 ( I > 1 ) 

18370 




A3 ( I >2)=A4( I » 2 ) 

18380 




GO TO 280 

18390 



280 

CONTINUE 

18400 



300 

CONTINUE 

18410 


c 



18420 

h~* 

c 

5= SSSSS 




c 


THE POINT XP» YP. 

18440 


c 


( 

18450 



400 

J= 1 

1846(3 




I F ( L « GE « 3 ) J= 2 

18470 




I F ( JUMP o EQ o 5 ) GO TO 504 

18480 



“4TTT 





420 

SXP=XP 

18500 




SYP= YP 

18510 




xp=dtx 

18 520 




YP=DTY 

18530 




GO TO 512 

18540 



5 04 

IF< AB5(XP)-dT X ) 510, 510,513 

18550 



510 

IF(ABS(Yp)-DTY)512?512?526 

18560 



512 

DO 514 K = 1 j 25 

18570 



514 

A TIT) =A1 fK > J ) 

18580 

- 



GO TO 540 

18590 



518 

I F ( ABS ( YP ) -DTY ) 522 > 522 >534 

18600 



522 

DO 524 K = 1 j 25 

18610 



5 24 

A(K)=A2(K 5 J) 

18620 




GO TO 540 

18630 



526 

DO 530 K = 1 > 25 

18640 



530 

A c K ) i: A3 ( K »J) 

18650 




GO TO 540 

18660 

' 


53^ 

DO 538 K = 1 » 2 5 

18670 


5 38 A(K)=A4_<.<>J2 

"54 o'co NT i NUE~ " 

XP=XP-X1P 

YP=YP-YlP 


18680 

'18690' 

18700 

18710 


0 OWA = A ( 1 ) *( XP**4)* ( YP**4) + 

1 + At 3)*(XP**3)*(YP**4) + 

2 _ + A t _5 ) * ( XP**3 ) * < YP** 3J _+ 

3 “ + fj *{ x pil ?4 )'¥ ("YP ’ f T 

4 + A ( 9 ) * ( XP**2 ) * ( YP**3 ) + 

5 + At 11 )*( XP**4) ± 


A ( 2)*(XP**4)*(YP**3) 
At 4) * ( XP**4 ) * ( YP**2 ) 
A L 6J * ( X_P** 2 ) * ( YP**4 )_ 

"AT 8 f *7 X P ~ * *3 T7f Tp** 2 ~ ) ' 

A(10)*(XP )*(YP**4). 

A ( 12 )*( XP**3)*( YP > 


18720 

18730 

1.8740 

18750 

18760 

18770 


6 + A ( 13 ) * ( XP**2 ) * t Yp**2 ) 

7 + At 15)* { YP**4) 

8 4- At 17 )*( XP**2 )* ( YP ) 


9 

0 

1 


+ 

OWES = 
+ 


At 19) * 

A ( 2 1 ) * ( X P 
A (23) *( XP 


( YP**3 ) 
) * ( Y P ) 


+ At 1 4 ) * ( XP )*(YP**3) 
+ At 16)*(XP*#3) 

+ A t 18 V# ( XP _ _J# ( Y P**2 )_ 
“At 20)*fXP*~*2 ) 

+ At 22)* { YP**2 ) 

+ At 24)* ( YP ) 


18780 

18790 

18800 

'18810 

18820 

18830 


2 

OWF 

_o owx 

1 

2 

3 


A ( 25 ) 

OWA 4- OWES 

4 • 0*A ( 1 ) * ( X p** 3 ) * ( YP**4 ) + 4 
"3 • 0*A t 37* ( X P**2 )"*"( YP**4 ) +"~4 
3*0*A( 5 ) * ( XP**2 )* ( YP**3 ) + 2 
4aO*At 7 ) * ( XP**3 )* ( YP ) + 3 


4* 4 2 * t)*A ( 9 ) * ( X P )* ( YP**3 ) + 

5 + 4 • 0 * A ( 11 )*(XP**3) + 3 

6 4- 2 • 0*A ( 13 ) * t XP )*(YP** 2 ) + 


, 0*A (_ 2 ) * ( XP**3 ) *JJP*73 ) 
70*A"( “4j*(XP**3l * ( YP**2'f 
,0*A( 6 5 * ( X P ) * ( YP**4 ) 

,0*A( 8 ) * ( XP**2 ) * ( YP**2 ) 

t YP**4 ) 

,0*A(12)*(XP**2)*( YP ) 
__A ( 1 4 ) * _<_YP ** 3J 

;o*a t f 7 i * t xp r*t yp" r 

,0*A(20)*(XP ) 

A ( 23 ) 


18840 

18850 

JL8860 

18870 

18880 

18890 


co 


7 

8 
9 


+ 3» 0*A ( 16 )*( XP**2 ) 
4- A ( 1 8 ) * 

4- A ( 2 1 ) * 


+ 2 

( YP**2 ) 4- 2 
( YP ) + 


0 OWY = 4, 0*A ( TT * ( XP**4 )* T YP**3 T T 3. 

1 + 4« 0 *A ( 3 ) * ( XP**3 ) * t YP**3 ) + 2 . 

2 4- 3 • 0*A ( 5 ) * t XP**3 )* ( YP**2 ) + 4. 

3 +“ “ Al~T)* (~XP**4T 4- “2“ 

4 4- 3 • 0*A t 9 ) * ( XP **2 ) * ( YP **2 ) + 4, 

5 + A ( 1 2 ) * t X P**3 ) 4- 2 1 


18900 

18910 

18 920 

18930“ 

18940 

18950 


0*A( 2 ) * ( XP**4 ) * ( YP**2 ) 
0*A t 4 ) * ( XP**4 ) * ( YP ) 
0*A< 6 ) * ( XP**2 ) * ( YP**3 ) 
0*A"( 8T* T X P * * 3 ")" *T Y”P~" " "") 
0*A ( 10 ) * ( XP ) * ( Y P ** 3 ) 

0*A ( 1 3 ) * ( XP**2 ) * t YP 5 


18960 

18970 

18980 

18990" 

19000 

19010 


4- 3 « 0*A ( 14 ) * ( X P )* t Yp**2 ) + 
4- A ( 1 7 ) * t Xp**2 ) 4- 


6 

7 

8 4- 3-0*A(19)* 

"9 + 2 0 * A“T2 ; 2 ) * 

XP=XP+X1P 

YP=YP+Y1P 


(YP** 2 ) + 
7 YP" 


1 0*A (15)* 

1 0 *A ( 1 8 ) * ( X P 
A ( 21 ) * ( XP 
"AT 2 47 " 


( YP**3 ) 
) * ( Y P ) 
) 


JUMP = JUMP + 1 

GO T 0 ( 580 » 574 > 580 > 580 » 576 > 600 ) >JUMP 
5 74 __WRIT_E_ tIS 0 > 575 )_ 

"5 75 " Tormat ’ t ThiT 

GO TO 580 
576 XP^SXP 
YP=S YP 


19020 
19030 
19_040 
190 50“ 
19060 
19070 
"TTOW 
19090 
19100 

19 no 

19120 

19130 


19140 


-kO 


-5-86- MR- I4-E-- 1-I-S9-5-5 8 14- - OWE , O-WX. .sjQMY _____ _ _ 19150 

581 FORMAT <1H » 39H TEST I NTERPOLATl ON VALUES "aT TeNTEr" = ’"7e1676” 

1 1 H » , E 1 6 o 6 > 1 H , 9 E 1 6 • 6 ) 

GO TO 4 10 
M 


19160 

19170 


800 


I F ( ( ICHAP»EQo3 ) *0 R. ( I LRGoEQo 1 

_owf=owf*prss 
'owx=6wx*p'rss ~ 

OWY=0WY*PRSS 

RETURN 


GO TO 800 


END 

SIBFTC MS23H2 
CN0RMAL 


19190 

19200 

19210 

19220' 

19230 

19240 


C 

C 


C 

C 


SUBROUTINE NORMAL (OWX, OWYT~kT"deLTAP ON)" 

THIS SUBROUTINE FINDS THE NORMAL To The SURFACE. 


19250 

19260 

19270 

19280’ 

19290 

19300 


DIMENSION CN f 3 ) , DELTApI 6 


AN AG = SORT 1 T0*WX*Hy + o W ¥ 2 > * ( D BUT APT K ') W2T ~+~ TVS T 

C N ( 1 ) a (-DELTAP(K)^OWX) /amag 
CN ( 2 ) - < -DELTAP ( K ) *0WY ) / AMAG 


cUT 3 "> = i . o Tama g 

800 RETURN 
END 

'sifjfTc RS 2 TR 3 

CREFRCI 


19310 

19320 

JU9330 

19340 

19350 

19360 


SUBROUTINE refrci t Cl » CN > OR I » 

THIS SUBROUTINE CALCULATES NEW DIRECTION OF RAY UPON ENTERING 
NEW MEDIA. 


C 

C 


DIMENSION C I { 3 ) » CN< 3 )» CR (3 


■ DOT P - 0.0 

DO 101 1=1,3 

1° 1 DO T P = DOT p + c I ( I ) *CN ( I ) 

ROOT = " QRTIhT 2" "DO T P-k *2 

IF (ROOT) 103*105,105 
ROUT = 0.0 

ttotte'’"'T 1 s o ’ » 5 0 0 ) Root 


19370 

19380 

19390 

T9W 

19410 

19420 

T9P+3TT 

19440 

19450 

T9TS7T 

19470 

19480 


103 


500 FORMAT ( 1H0 , 6HROOT = »E16.8/) 

GO TO 107 

10 5 ROUT V- SORT " ( ROOT j ~ 

107 DO 109 1=1,3 ’ 

109 CR(I) ~ (Cl U) + (ROUT-DOTP)*CN( I) ) /QRT 


800 


RETURN 


19490 

19500 

19510 

"19TT20" 

19530 

19540 

19560 

19570 

19580 

19590 

19600 

19610 










2 ( OIF(ll) » N2 ) 

DIMENSION NMP ( 8 > ? AVG ( 8), AVS ( 8)j AMN ( 8)? STD< 8)>RES(180) 


21460 
21470" 
21480 
21490 
0 



/ 


oo 

4 > 


,VS_= Y IN __ _ _ „ „ 21510 

c Xp = XOUT ~ 21520 “ 

C YP = YOUT 21530 

■■■£ 21540 

XXX= 1 , ’ 21550 

I F ( N2 • EQ. 2 ) XXX = 0o 21560 

I.SW_fL.i _ _ _ 21570 

GO TO (100,111), I SEC "21580 

100 IJ = LP7 - 1 21590 

I = 1 21600 

XS = RES ( 1) 21610 

YS = RES( 2) 21620 

XP = RE S ( 3 ) _ 21630 

YP = RES ( 4 F “ " ~ " ' 21640 

ICHAP = CHAP 21650 

101 GO TO (102,103,104), ICHAP 21660 

C===== IS POINT MORE THAN 1 INCH INSIDE ELLIPSE BOUNDARY 21680 

10 2 A a DI M A/2, 0 __ 21690 

B = D I MB 72.0 "" ~ 2l"700 

IF (XS # GT , A) GO TO 109 21710 

_______ IF (YS .GT. B) GO TO 109 21720 

XLIM “ A*SQR T ( 1 c 0- (Ys¥¥'2/ (B*B) ) ) 2 1 730 — 

YLIM = B*SQRT ( 1.0- (XS*#2/ (A*A) ) ) 21740 

IF (XS 6 GT* (XLIM-1.0)) GO TO 109 21750 

I F~~( YS” GT * 1 YLI M-l . 0 ) ) GO~fo 10 9 " 21760 

IF (XP o GT 6 A) GO TO 109 21770 

IF (YP o GT » B) GO TO 109 21780 

xlim = assort 1 1 . o- ( yp** 2 / ( bWTT) '21790 ~~ — 

YLIM = B*SqrT( liO-(XP**2/ (A*A) ) ) 21800 

_I__F (XP__.GT. (XLlM-laO)) GO TO 109 21810 

"'i rTYp ; gtthtli m- I rcrn go to i?r$ 2 T 820 " 

GO TO 108 21830 

C 21840 

C = ==== = j Spot NT MC R E THAN 1 INCH I N STiTTITECTa]^^ 2TF50 

103 A = DIMA/2dO _ 21860 

B_ = DIMB/2«0 21870 

"i ttxttgt rTA-Ti o~rr go“"t otlo 9 — -^is-qo"' - 

I F (YS , GT • ( B — 1 • 0 ) ) GO TO 109 21890 

IF (XP « GT» ( A~1 a 0 ) > GO TO 109 21900 

IF (YP . GT # { B“1 * 0 ) ) GO TO 109 21910' 

GO TO 108 21920 

„C _ _ 21930 

C= = ~== rs POINT MORE THAN I TNCH INS IDE' 'TRAP EZOTO BOUNDARY - - - - — 21940 

104 A = D IMA/2 o 0 21950 

B = DIMB 21960 

C = DIMC/2«0 5 ~2T970 


I-£-(-N 2-. ECU- 1-) - GQ— J.Q— 1 JLX 21980 

IF( (XS.LT.O. ) .OR. (YS.LT.O.J) GO TO 109 21990 

I F < (XP.LTeO. ) < OR. (YP.LT.O. ) ) GO TO 109 22000 

117 IF (YS .GT„ B) GO TO 109 22010 

XLIM = C + ( ( A-C) /B) *(B-YS) ' 22020 

YLIM = B 22030 

IF i_XS .LEU G)_GO TO 10__5 _ _ 22040 

IF (XS eGf. A) GO TO 109 220 50" 

IF ((A-C) * NE . 0.0) GO TO 115 ‘22060 

YLIM = 8 22070 

GO TO 105 22080 

115 YLIM = (B/ (A-C) )*(A“XS) 22090 

10_5 IF (X S . GT o (X LIM-XXX) ) GO T O 10 9 _ _ 22100 

IF (YS *GT. (YLIM-XXX) ) GO TO 109 22“ilo" 

IF (IREL »EGU 1) GO To 106 22120 

IF (YS «LT» XXX) GO TO 109 22130 

IF (YP *GT # B) GO TO 109 r 22140 

106 XLIM = C + ( (A-C)/B)*(B-YP) 22150 

YLIM = B 22160 

ff'lxp 7 LEU c) "GO“TO“l07 ““ ‘ ' 22170 

IF (XP »GT o A) GO TO 109 22180 

IF ( ( A— C ) .NE. 0.0) GO TO 116 22190 

y LlM - Q Z22o"0 

£ GO TO 107 22210 

w 116 YLIM = ( B / ( A-C ] ) # ( A-XP ) 22220 

'107' IF'TXP VgT . TXLIM-XX'X~) ) GO"TO"lTT9 22230' 

IF (YP «GT * (YLIM-XXX)) GO TO 109 22240 

IF (IREL . EQi 1) GO TO 108 22250 

j-p (YP . L 1 7 XXX) GO '10 1 09 I TI2T0 

108 IF (ISW .EO. 2) GO TO 110 22270 

XS = RES ( 5 ) _____ _222_80_ _ 

XP a RES ( 7) 22300 

YP = RES ( 8) 22310 

ISW a 2 22320 

GO TO 101 , 22330 

_ 10 9 GO TO 799 __ _ ___ 22 34° __ 

0==== STORE COMPONENTS NEEDED FOR MEAN AND RMS 22360 

110 NMP ( I ) = NMP ( I ) + 1 22370 

R ESI = RES ( 15 ) 22380 

RES 2 = RESl*RESl 22390 

AVGJ I ) _= AVG(I) + „RESl __ __ 22400 

£ V - sri -y- = -"avS ( iT+" RE^2 " ' " 22410“ 

GO TO 800 22420 

C 22430 

j- hlS SECTION CALCULATES THE MEAN' "(AMNT”AND "RMS (STD) . 22440 







Ill AMP = NMP ( I ) 

IF (AMP »EQ. 0*0) GO TO 114 
AMN( I ) = AVG ( I ) /AMP 


22450 

22460 

22470 

22480 




JPM ( 500) j RTV ( 500 f»0IF( 12~ 


ENSIGN RT 30 ( 3 ) ; R T 3 1 ( 3 ) , RT32(3)» RT36(2), Rl37(2)» RT38<2), 
1 RT 39 ( 2 ) ~~ ' ~ — 


22920 

22930 

22940 


° — I A RT30(1) /13HELLIPSE A = /> RT31 ( 1 ) / 1 3HRECTA NGLE A=/, 

2 "ft T3 Z Cl ) 7T3'HTraPE2o1 D ~A=7~i ?““RT3*3T4”H F=7~, C= /7 

2 RT35/6HSCALE =/ > RT36 ( 1 ) / 10HTH I CKNES5=/ , 

J? RT37 ( 1 ) /9H PANES=/> RT38(1J/11H SPACING = /, 

4 RT39 ( 1) /12H 


PRESSURE=/ 

DATA HING/ 6 HHINGED /5 CH/lH /> CLMP/ 6 HCLAMPE/ j CC/ 1 HD/ 


- 22.9.5.0. 
22960 
22970 
"22780" 
22990 
23000 f 


~R A 5 =~ 0 .O'l? 45 32 92 5 1 9 " 
IDT=IRT 

LIHE=0 


23010 

23020 

23030 

23040' 

23050 

23060 


,--0 r_= EEJ1-LH I A„§ LLQN. G ENE RATES A POINT J_M THE MIDDLE OF A GRID AND THEN 
0 DETERMINES if THE GRID EXISTS* ~ 

c 

DO 120 K=1 S NGP 


CO 

■-J 


I PG=2 

K 1 = JPN(K) 

—CALL PACWRD (Kl_» K2> 2) 
XP = X ( K 1 = K 2 ) "”+ "DEL"/ 2 * 0" 
EJ=Kl-l 

VP=DEL^EJ+DEL/2.0 


23070 . 
23 ; 0 80" J 
2309 O' 
23100 ! 
23110 , 


call incotb (xp> yp» owf 7 owx > owyTTpgT 

IF(IPG.EQ.l) GO TO 120 
R = 0.0001 


23120 

23130 

23140 

'23150 

23160 

23170 


S MX = 0.0 
DO 114 J^l >181,2 
RJ - J-l 


THE = RJ*rao 
XL = XP + R-*COS ( THE ) 
YL = YP _+ R*SIN(THEJ 


23180 

23190 

23200 

23'2l0” 

23220 

23230 


CALL INCOT3( XL sYL >OWg"s" 6 vJxT 6 wy"» IPG) 
OWR = (ABS(OWF),- ABSCOWG))/R 
OWS = ABS(OWR) 


23240 

23250 

23260 


112 


IF(J.EQ.I) SMNaOWR 
I F ( 4* EQ. 1 ) SMXsOWR 
L H _L J HE/ RAD 

I F ( OWlT .TT. ~A B S”f3MX T1 GO T'0~Ti 2~ 
SMX = OWR 
A MX = THE/RAD 

TF” ( OWS .'GT. A3SISMN ) i GO . 1 0" 1 1 4~ 


23270 

23280 

23290 


23300^ 
23310 I 
23320 I 
"23"330’ 
23340 
23350 


SMM = OWR 
AMfsi = THE /RAD 

IT 4 “ continue 

IF(K.EQ.l) GO TO 115 


TTFm~ 

23370 

23380 

”2"3"3'$0~ 

23400 





n n n n,n n r> r> nn 


-J T-7- -=..-.#UM8 E R -O F--P-A N E-S — 

JTIO = BOUNDARY COORDINATE SWITCH 

LIN = RETRIEVAL INDEX OUTPUT LINE COUNTER 

RT2 = PLANFORM SELECTION SWITCH 


RT3 = BASE LENGTH OF PLANFORM 

RT4 = WIDTH OF PLANFORM 

R t 5j=_UPPER X DIMENSION. OF_JRA_PEZO_I D _ 

R T 6 = GLASS THICKNESS 

RT8 = SPACING BETWEEN PANES 

RT9 = INTERSTICIAL PRESSURE 


... .23860- 
23870 
23880 
23890 


23900 

23910 

23920 

"23930 

23940 

23950 


23960 


COMMON DUM 23970 

C 23980 

0 EQUIVALENCE TdUMI " T") CONf» "( DU Ml 50T)»” X ] T "23990 

1 ( DUM I 1001 ) > Y), < DUM (1501)* W) > (DUM<2001)> DWX ) , 24000 

2 ( DUM (2501) «» DWYJj (DUM(300l)» JPN)> (DUM(3501)» RTV) 2A010 




190 



WRITE (ISO* 500) 24550 

500 0 FORMAT ( 1H0*42HRETRIEVAL SHAPE A B C » 24560 

1 59H THICKNESS _ _ PANES __ SPACING _ PRESSURE^ _FIXITY ___ _/ 24570 

2 7 HlsfUMBER » 16X7 1 7 HT"n". I N ° f N*. » 6X »' 3 HI n77 16 X* 3H I N 8 X >3HLB^ »“ " 245 80” 

3 16X/1H ) 24590 

DO 114 I =1 » L I N 24600 





1 — grX s-A-S-* — &JU F3-^l -v-5-X ->A-6^A 1-9-4X.) — - - 

GO TO 114 

113 0 WRITE <ISO*503) JTlII)* ( SHAP < J ) » J = 1 » 2 ) > 
1 RT6 ( II > JT7 ( I ) » RT8 I I ) » RT9(I)» (CONC(J 


RT3( I) 9 RT 4 ( I ) » RT5 ( I > > 
» J = 1 >2 1 


. Z4.8-Q Q . 
24810 
24820 
24830 



503 0 
1 

114 . 

FORMAT (1H »3X9l3*4X»A6*A392X»F5.2»2X,F5«2f 
6X9F5o295X9F5il 95 X 9 A 69 AI ) 

continue 

2X*F5.2»4X9F5.2»7X*I1» 

r 

24840 

24850 

24860 


800 

LIN = 0 

RETURN 

END 



24 870 
24880 
24890 


sirftc 

MS23H9 



24900 


CBONDRY 



24910 



SUBROUTINE bondry ( XP 9 Yp 9 I by ) 


24920 


C 




24930 


C 

THIS SUBROUTINE TESTS THE X AND Y COORDINATES TO BE SURE THEY 

24940 


C 

ARE INSIDE THE BOUNDARY « 


24950 


C 




24960 


C 

A = DEFINED BELOW 



24970 ■ 


C 

B = DEFINED BELOW 



24980 


C 

C = DEFINED BELOW 



24990 


C 

CHAP = ICHAP = PLANFORM SELECTION SWITCH 


'25000 


C 

DIMA = LOWER LENGTH 

OF PLANFORM 


25010 

— 

C 

DIMB = HEIGHT OF PLANFORM 


25020 

“-h-* 
— VO 

c 

DIMC = UPPER X DIMENSION OF TRAPEZOID 


25030 

*— ■ 

c 

I BY = 1 INDICATES 

POINT IS OUTSIDE PLANFORM BOUNDARY 

25040 


c 

X L I M = X VALUE AT PLANFORM BOUNDARY CORRESPONDING TO YP 

25050 


c 

XP = X COORDINATE 

OF POINT BEING CHECKED 


25060 


c 

YP - Y COORDINATE 

OF POINT BEING CHECKED 


25070 


c 




~25oW“ 



COMMON DUM 



25090 


c 




25100 


0 

EQUIVALENCE 

C DUW ( 1)9 CON ) 9 

(DUMi 501)9 X )* 9 

25110 


1 

(DUM(lOOl)t Y ) 9 

(DUM (1501) > W>9 

( DUM (2001 ) 9 DWX) 9 

25120 


2 

( DUM (2501 ) 9 DWY ) 9 

(DUM( 3001 ) 9 JPN ) 9 

(DUM< 3501 ) 9 RTV) 

25130 


c 




25140 


0 

EQUIVALENCE 

( CON ( 1 ) 9 DIMA ) 9 

( CON ( 2 ) 9 DIMB ) 9 

25150 


1 

( CON ( 3)9 DIMC)9 

( CON ( 4)9 DEL ) 9 

(CONI 5 ) 9 GNU ) 9 

25160 


2 

"TCoNT( 6) 9 ThiC) 9 

rooNT -7Y 9 -5PADT, 

rcoR( 8 ) 9 PR SS ) 9 

25170’ “ 


3 

( COM ( 9 ) 9 NPAN ) 9 

(CONI 10), IS I ) * 

(CONI 11)9 ISO)9 

25180 


4 

( CON ( 12)9 IBC)9 

(CONI 13) , NGP ) 9 

(CONI 14)9 LP7 ) 9 

25190 


6 

7 

~8 

9 


15) 

185 


( CON ( 

(CONI 
TCON'I 24 rv 
( CON ( 27)9 


FRT 
IPR) » 
21 ) 9 ISCR2 ) 9 
NPA~GT9 
IREL ) 9 


( CON ( 

( CON ( 

icdwr 

( CON ( 


T6 
19) 9 
22 ) 9 

2 5')%’ 
28) , 


CHAP ) 9 
SKAL) 9 
‘tong) t 

LP5 ) 9 


i i 17 ) ’ 

( CON (20)9 I 
( CON ( 23 > 9 
TCON"( “2 6 ) % " 
( CON ( 29)9 


SCR1 ) 9 
I SEC) 9 
ILGD) 9’ 
CPRSS ) 


25200 

25210 

25220 

25230’ 

25240 

25250 


0 EQUIVALENCE 


( CON ( 31 ) 9 SCAL) 9 


( CON ( 41 ) 9 SPAC ) 9 


25260 


1 (jCON ( 51) PRES ) > 

2 <coN(" 8 i>» pa Fa ) 5 

3 ( CON (111)9 RE S)> 

4 (CON (40 1 ) 9 E AND F ) » 


(CONL 61 ) » PLNAJ 9 

'"("CON ( ' 91 )“* “ "THE A > V 

( CON (301) , STAT) * 

( CON (451) » RHS 


(CONJ 7_1 
“(CON ("1 01 
(CON( 351 


)_l RAYAJ ». 

) 9 R I j 9 

) » OIF) » 


25270 

"25280’ 

25290 

25300 


c 

0 DIMENSION CON ( 500 ) 5 X(22>22)» Y(22»22)» W(22j22)» DWX(22»22) 

1 DWY(22»22)* JPN(500) 9RTV(500) 

25310 
9 25320 

25330 

C 

ICHAP = CHAP 

GO TO ( 101»102*103 ) > ICHAP 

25340 

25350 

25360 

101 

A = D IMA/2 ii 0 

25370 


B = DIMB/2. 0 

25380 


IF (ABS(YP) bGT. B) GO TO 104 

25390 


XLIM = A*SQRT(1.0-(YP#*2/(B*B) > ) 

25400 


IF (ABS(XP) s GTs XLIMJ GO To 104 

25410 


GO TO 800 

25420 

102 

A « DIMA/2 0 0 

25430 


B = DIMB/2 . 0 

25440 


IF (ABS(YP) sGT* B) GO TO 104 

25450 


IF (ABS(XP) » GT* A) GO TO 104 

25460 


GO TO 800 

25470 

103 

A = DIMA/2.0 

25480 


B = DIMS 

25490 


C = DIMC/2.0 

25500 


IF (ABS(Yp) « GTs B) GO TO 104 

25510 


XLIM = C + ( ( A-C)/B)*(B-YP") 

25520 


IF (ABS(XP) sGT. XLIM) GO TO 104 

25530 


GO TO 800 

25540 

104 

I BY = 1 

25550 

800 ’ 

return 

25560 


END 

25570 

$ IBFTC MS23J0 

25*580 

CPACWRD 

25590 


SUBROUTINE PACWRD (Kl» K2 9 K3) 

25600 

C 


25610 

c 

THIS SUBROUTINE PACKS AND UNPACKS TWO INTEGER WORDS. 

25620 

c 


25630 

c 

PACKING"' K1 " = ~FTr"ST" INTEGER" "Mb RETaRNWPACKED“"WoR"D'“ " 

25Wf 

c 

K2 = SECOND INTEGER 

25650 

c 

K3 = 1 

25660 

c 


25670 

c 

UNPACKING K 1 = PACKED WORD AND RETURNED FIRST INTEGER 

25680 

c 

K2 = SECOND INTEGER 

25690 

c 

K3 = 2 

*25700 

c 


25710 


GO TO ( IOO 9 102 ) 9 K3 

25720 

100 

K 1 = K1*3276S + K2 

25?30 




V0 

<jO 


102 K 4 = Kl/32768 25750 

K2 = K1 - K4*32768 25760 

K 1 = K4 25770 

800 RETURN 25780 

END 25790 

$IBFTC M S_2 3 J 1 _ __ _ _ __ 25800 

“CPAGE " ' '"'2 5810 

SUBROUTINE PAGE (IPN, LINE? ISN, INX) 25820 

_C THIS SUBROUTINE PRINTS THE TIME AND PAGE NUMBER AT THE PAGE TOP 25830 

C INX = RETRIEVAL NUMBER 25840 

C I PN = PAGE NUMBER 25850 

__C ISN =_TAPE NUMBER, __ _ 25860 _ 

C LINE = LINE NUMBER 25870 

C 25880 

DIMENSION RT 10 ( 3 ) 25890 

C 25900 

DATA RT10(1) /18HRETRIEVAL NUMBER = /» RTll/ 4HPAGE/ -25910 

C 25920 

I PN = f PN + “l ~ ” ~ 25930 

IF (INX .EQ. 0) GO TO, 100 25940 

IF (ISN » EQ a 9) GO TO 102 25950 

WRITE ( ISN » 500 ) <RT10(I), 1 = 1,3'), INX* RTll, IPN 25960 

500 FORMAT <1H1>3A6,I5,89X,A4,I4) 25970 

GO TO 800 25980 

102 WRfrr USnT'TrTIOI flV 1 = 1 ,~3) “INX» RflT, 'IPN ‘25990 

GO TO 800 26000 

100 WRITE (ISN, 501) RTll, IPN 26010 

501" FORMAT TTH1Ti , 12X ,A4 , 14 ) 26020 

800 LINE = 1 4 26030 

RETURN 26040 

“END " 26050 

SIBFTC MS23J2 26060 

CSHRDEF 26070 

SUBROUTINE SHRDEF * 26080 

C 26090 

C_ ___ ETA =_FACTOR__TO MODIFY DEFLECTION BY_TO_ OBTAIN SHEAR DEFORMATION ____26l00 

COMMON DUM 26120 

C 26130 

0 EQUIVALENCE <DUM( 1), CON), (DUM< 501), X), 26140 

1 ( DUM ( 1001 ) , Y), (DUMQ501), W), (DUM<2001)» DWX ) » 26150 

2 ( DUM ( 2501 ) , DWY), (DUM(300l)» JPN), (DUM(3501)» RTV) 26160 

. - '26170 “' 

0 EQUIVALENCE (CON{ 1), DIMA), (CONI 2), DIMB), 26180 

1 ( CON ( 3), DIMC), ( CON ( 4), DEL), ( CON ( 5), GNU), 26190 

2 ( CON ( 6), THIC), ( CON ( 7), SPAD), ( CON ( 8), PRSS), 26200 




nn|nn w n !n n n n 



100 W(I»J) = 
800 RETURN 
END 

$IB~FTC MS"2~3J3 

function 


I *ETA 


SINH(ARC) 


THIS FUNCTION CALCULATES THE DOUBLE PRECISION HYPERBOLIC SINE 
BUT RETURNS THE SINGLE PRECISION HYPERBOLIC SINE. 

j-^oTTARG TdS IN H 

ARG = ARC 


I F ( ARC *GT. 88.0) ARG=8S.O 

DSINH = 5 oOD-l* ( DEXP ( ARG ) -DEXP ( -ARG ) ) 

SINH = DSINH 

RETURN “ 

END 

IBFIC MS23J4 


FUNCTION COSI-I (ARC) 

THIS FUNCTION CALCULATES THE DOUBLE PRECISION HYPERBOLIC COSINE 
”"bW" RE'TUrnS T Hir s l"NG~LE ” PRECTSTON" HTpEr”BOLIC“ COSTNER 

DOUBLE PRECISION ARG »DC0SH 


26430 

26440 

26450 

'26460 

26470 

26480 


26490 

26500 

26510 

"2“6520" 

26530 

26540 


26550 

26560 

26570 

'26580' 

26590 

26600 


26610 
26620 
26630 
' 26640" 
26650 
26660 


7 Ah70 




o|on nw nl noon 


I F ( ARC »GT» 88.0) ARG=88«0 
DCOSH = 5.0D-1*<DEXP(ARG)+DEXP(-ARG) > 
COSH - DCOSH 


RETURN 

END 

$ J BJFT C _M S 2_3J 5 

FUNCTION TANH(ARC) 

THIS FUNCTION CALCULATES THE DOUBLE PRECISION HYPERBOLIC TANGENT 


BUT RETURNS The SINGLE PRECISION hyperbolic tangent, 
DOUBLE PRECISION ARG >DTANH 


ARG = ARC 

I F ( ARC «GT « 88 » 0 ) ARG = 88iO 


DTANH = (DEXP ( ARG)-DEXP(-ARG) ) /(DEXPt ARG ) +DEXP ( -ARG ) ) 

TANH = DTANH 

R_EJU_RN__ 

ENd"“ ■ 

IBFTC MS23H1 
INCOTB 


„26680. 

26690 

26700 

26710 


26720 

26730 

26740 

'26750' 

26760 

26770 


26780 

26790 

268 QQ 

"26810 

26820 

26830 

26840 

26850 

2686_0_ 

‘26870 

26880 

26890 


THIS SUBROUTINE GENERATES THE TABLE OF INTERPOLATION COEFFICIENTS 


COMMON DUM 


0 EQUIVALENCE 

1 ( DUM ( 1001 ) > Y), 

2 ( DUM( 2501 ) 9 DWY) > 


EQUIVALENCE 
(CON( 3 ) > [ 


DIMC) 


TdumI I)? conT 

<DUM( 1501 ) 9 W) 
J ? U il ( 3 001 ) 9 J PN| 

( CON ( 1) , DIMA) 

( CON ( 4), DEL) 


(DUM! 501) » X) 
( DUM< 2001 ) ? DWX) 
( DUM <3501) 9 RTV) 


( CON ( 
(CON! 


DIMB) 

GNU) 


26910 
26920__ 
"26930 
26940 
26950 
26960 
26970 
26980_ 
”2 6"9 9 0 
27000 
27010 




2 

(CON! 6)9 THIC ) 9 

(CON ( 

7) , 

SPAD ) 9 

( CON ( 8)9 

PRSS ) 9 

27020 



3 

(CON! 9 ) 9 NPAN) 9 

( CON ( 

10 ) , 

ISI ) , 

( CON ( 11)9 

ISO) 9 

27030 



A 

(CON! 12)9 IBC)» 

(CON! 

13) 9 

NGP ) 9 

( CON ( 14)9 

LP7 ) 9 

27040 



5 

(CON! 15)9 FR) 9 

(CON! 

16) 9 

L0CPT7 

TCON( "17”) 9 

■ IPD")V" 

27050 



6 

! CON ( 18)9 IPR>9 

(CON! 

19) 9 

CHAP ) 9 

( CON < 20)9 

ISCR1 ) 9 

27060 



7 

( CON ( 21 ) 9 ISCR2 ) ’ 

(CON! 

22 ) 9 

SKAL ) 9 

( CON ( 23)9 

I SEC ) 9 

27070 



8 

( COM ( 24)9 NPAG ) 9 

( CON ( 

25) 9 

-YONG) 9 

( CON ( 26)9 

I LGD ) 9 

27080 



9 

(CON! 27)9 IREL)9 

(CON ( 

28) 9 

LP5 ) 9 

( CON ( 29)9 

CPRSS) 

27090 



C 







27100 



0 

EQUIVALENCE 

I conT 

~3T)T 

"SC AT) ; 

( CON ( " 41 )'9 _ 

"SP”AC")"”9 

27T10" 



1 

( CON ( 51 ) 9 PRES) 9 

(CON! 

61 > 9 

PLNA ) 9 

( CON ( 71)9 

RAYA) 9 

27120 



2 

(CON! 81 ) 9 PA I A ) 9 

(CON! 

91)9 

THEA ) 9 

( con ( ioi ) 9 

R I ) 9 

27130 






4 (CON (401) »EANDF) » (C0N(45JL)» RHS)_ __ 27150 

C “ 27160 

DIMENSION CON (500) ? X( 22>22)» Y(22>22)> W ( 22 » 22 ) s» DWX(22»22)> 27170 

1 DWY ( 2 2 > 2 2 ) ; JPN(500l> RTV(500) 27180 

C . 27190 

100 A - DIMA/2.0 27200 

B = pIMB/2.0 27.210 

GO TO ( 102 * 104) » IBC 27220 

102 T El = l. 0/(64. 0*FR) 27230 

TE2 « ( (5.0+GNU) /( 1.0+GMU) )*(A*A) 27240 

X 2 = XP*XP 27250 

Y 2 = YR-K-YP 27260 

TE3 = ( A*A - X2 -Y2) _ _ 2727 0_ 

T E4=~ ( T E 2~ - X~2 ~**~Y 2 ) 272 80 

OWF = TE1*TE3*TE4*PRSS 27290 

QWX a -2.0*XP*TE1»(TE3 + TE4)*PRSS 27300 

OWY = -2.0*YP*TE1*(TE3 + TE4)*PRSS 27310 

GO TO 800 27320 

104 TEM = ( 24.0/ ( A#*4) ) + ( 24 . 0/ ( 13**4 ) ) + ( 1 6 6 0/ ( A*A*B*8 ) ) 27330 

WO = 1 » "0 7 (>R#TEM) "" ”, ~ ~ "" " "27340" ' 

TEM = (1.0 - (XP*XP/ (A*A) ) - (YP#YP/<B*BM) 27350 

OWE = WO-MTEM**2)#PRSS 27360 

0 ,., x =( _ 4e o * WO * X P 4 T E M / ' (" A * A )' F* P R SS ■ ' 27370' 

OWY «(-4.0#WO*YP*TEM/(B#B) )*PRSS 27380 

800 RETURN 27390 

■ e nd ’ " 27400"” 


2752 






CDATRTV 0000 

C 0010 

C THIS IS A DATA RETRIEVAL PROGRAM TO RETRIEVE LINE OF SIGHT DATA 0020 

C FROM SYMBOLIC TAPE IS9. 0030 

C 0040 

C 0050 

"" -0 " DlMEN STON R T 1 0 f 3 ) "f RT20T5 ) V RT30T3')T"RT36 f 2 )" » RT377 2 ) "» OOTO'““ 

1 RT38 ( 2 ) > RT39 ( 2 ) > RES(200) 0070 

C 0080 

DUM1/4HX = 7 07790 

C 0100 

C*==== INITIALIZE INDEXES ? READ RETRIEVAL NUMBER > AND FIRST BLOCKS DATA. 0110 

C ’ " Ol 20 

1ST = 5 0130 

iso = 6, 0140 

IS9 = 9 0150 

REWIND IS9 0160 

READ (IS 9 ) ( R T 1 0 ( I) » I = 1 s 3 ) * INX> RT 1 1 » IPN 0170 

I"INX~"=” I NX ~ “ 1)1 80 

100 READ ( I SI *500 ) IRTV 0190 

500 FORMAT (15) 0200 

IF (' t r tV ;'EQ , 'r'6T - 6o“To _ To 00 o2io 

IF ( I NX „GT. IRTV) GO TO 900 0220 

IF { I NX__ • EQ . IRTV) G O TO 108 _ 0230 

Tf“"(TNX TE q 7 “ 9 9 9 y “■ GO ' T 0 902 “ ““ ' “ ' “ “0240 ' 

LINX = I NX 0250 

C 0260 

c = = _ — f - HI'S Sec TToirnRi?^ To BE B V - PASSED^ 0 270 

C 0280 

102 READ <IS9) ( RT10 ( I) » I = 1 > 3 ) » INX 0290 

-- if"TinX-.FQ.~ IR'TVTg'0"T6 TO 5 OWO ■ " 

GO TO 102 0310 

105 BACKSPACE IS9 0320 

i^' A ' D ■ ( rs 9 ) ( RTlO ( I ) , 1 = 1 >3 ) » INX jRTTTTTTnxi 03~30 

GO TO 108 0340 

C , 0350 

= -^- T(Trs - - SHr rro ^- RrA - D s - ~ r N - T " T OP - " '5E“C T 1 0”N” “0 F~ DAT A TO ~ BT“P‘RTNTEDT 0360“"' 

C , ' 0370 

106 READ (IS9) ( R T 1 0 ( I) » 1 = 1 » 3 ) » INX? RTll» IPN 0380 

ip (IN 'X . EG). 999) GO To 1000 03P0 

LINX = INX ' , 0400 

IF (INX „NE. IRTV) GO TO 100 0410 

10 T~ RFad TTS9” f ( RT 2"0rfT>T=l » 5" ) ‘ ~0“4“20“ ~ ~ "* **' 

0 READ ( IS9 ) ( RT 30 ( I ) » I =1 » 3 ) » DIMA* RT33> DIMBj RT34» DIMC» 0430 

1 RT35 > SKAL ? ( RT36 ( I ) » I = 1 »2 ) * THIC» ( RT37 ( I ) » I = 1 » 2 ) > NPAN* 0440 

2 rm'38'Tii'"r T =i'"; , 2'r» 3F£U7”TTTTwrry-; oaso — 



uGiu -| -■ | ■'! I i i S 


READ { J S9) RT4 0 * RES( l) > RT41 * R E_S QJ __R_T RES ( 2 1 


0 READ ( IS9) 

1 rT50»RT51» 

2 RT54»RT55> 

3 RT58»RT59» 

A RT62>RT63? 

5 R T 6 6 » RT 6 7j ___ 
"6 "'r'T fOVRffi > ” 


(RES ( I ) » 1= 31 » 38) > 
( RES ( I ) » 1= 81? 88) > 
IRESI I ) » 1=101 »108) > 
{ RES ( I ) » I = 121 * 128 > » 
_(_RES( I ) >1 = 141* 148) > 
{ RE’S f lT» f=161»T68 ) ’ 


RT52 >RT53> 
RT 56 > RT 5 7 > 
RT 60 > RT 6 1 > 
RT 64 >RT65 ’ 
RT68*RT69> 
RT7 2'>RT7 3> 


( RES C I) > 1= 71 j 78 ) > 

( RES ( I ) >1= 91 > 98) > 

( RES t I ) » 1 = 111 *118 ) > 

( RES f I ) > 1 = 131 >138 ) » 
(RES! I) *1=151*158) » 
Tre s l I ) * T= 1 7 1 V 178”) ‘ 


===== THIS SECTION PRINTS THE TOP SECTION OF DATA. 


WRITE ( I SO s 50 1 ) ( RTl 0 ( I ) » 1=1 

501 FORMAT (1H1»3A6*I'5>74X*A4 *_J_4 ^ 

FrTTe"Ti”s 511 0 Z) " ' ( RT 2 0 ( T jV I = 1 

502 FORMAT ( 1H0 >46X >4A6 > A3 ) 

0 WRITE (ISO;503) (RT30I I) > 1 = 1 > 

1 RT35* SKAL* !RT36U)>I = 

2 ( R T3 8 C I ) *1 = 1*2) > SPADj 
50 3__0_ FOR MAT ( 1H0 * 2A6?A1 >F5»2 ?A4*F5 

1 A6»'A3*Il»A6*A5>F3«il»2A6>F5ol» 
WRITE ( I SO > 504 ) RT 40 > RES ( 1 ) * 

504 FORMAT ( 1H0 *40X s A4> F5 o 2 >5X » A4 

~ 0 WRITE (TSO750T) 

1 RT50*RT51> (RES(I) ,1= 31» 38) 

2 RT54>RT55> (RES(I)*I= 8 l» 88 ) 

3 “r j 5 g 7 r t 59 r~ (R E S"( I )TT = 1 0 1 > 1 0"8 j 

4 RT62»RT63» t RES ( I ) >1=121 >128) 

5 RT66>RT67> ( RES ( I ) > I =141 > 148 ) 
6 "R I'70VrT 7T> nTE^TTTTf^T 6 TTi 6 8 ) 

505 0 FORMAT { 1H0>A6>A4>3F13.6/1H0> 

1 1H0*A6*A4>8F13.6/1H > 

r Ih* 0 TA”6’>"A z rr8'ET3" 767T H“"> 

3 1H0 »A6*A4*8F13«6/1H ? 


>3)> I NX > RTl 1 


3 ) > DIMA> RT33> DI MB > RT34> DIMC> 

172 ) » T H I C » (Rl 37 ( I ) * I = 1 > 2 ] > N P AN > 

(RT39( I ) > 1=1 >2) > PRSS 9 CONC » CF 
4 2 ? A4 > F5 « 2 ? 5 X ? A 6 > F4« 2 > 3X ? A 6 > A4 > F5 » 2 > 
3X > A 6 > A1 ) 

RT 41 > RES ( 1 1 ) > RT42> RES ( 21 ) 
.»F5<2»5X»A5»F6«2 ) 

* RT 52 » RT5 3 > (RES(I)>I= 71> 78)> 

> RT 56 > RT57 > (RES( I) >I= 9l> 98 )> 

> RT60>RT61> ( R E~S (”l) » I “1 1 1 > 1 1 8 ) > 

> RT 64>RT65> ( RES (I ) > I =1 3 1 > 1 38 ) > 

> RT 68 >RT69 ’ (RES( I ) >1 = 151*158 ) > 


A6>A4>8F13s6/lH 
A6>A4>8F13 j6/1H 
T$61'A~%T8 E 13 # 67 TFT 
A6»A4>8F13&6/1H 


>A6 > A4 > 8F\13 • 6/ 
>A6>A4>8F13.6/ 
TKbTMTB El 3. 67" 
>A6> A4>8F13« 6 ) 


READ (IS9) DUM2 
WOK'S PACE TS9 
IF (DUM2 .EQ. DUM1 
GO TO 106 


GO TO 


0 READ ( IS9 ) 

1 RT50>RT51> 

2 RT 5"4~»R T 5 5~> ~ 

3 RT58>RT59> 

4 RT 6 2 > RT 6 3 * 


( RES ( I ) > I = 3] > 38 ) ’ RT52>RT53> 
IkE'SriT>TT-8l7 ”8 3T>"“ RT5’6TRT5 7 >~ 
(RES( I ) > I =101 > 108 ) > RT60»RT61> 
(RES( I ) >1=121*128) > RT64 >RT65 ’ 


(RES(I) >1= 71* 78) > 
"(RETSCD >“1=T'9T"> "98') >“ 
(RES( I ) >1 = 111*118) » 
{RES! I ) *1=131*138) > 





199 



W2 Wl?TTE(rS'0^521ETm TT5TJ 

952 0 FORMAT ( 1H1/1H0 »37HYOU HAVE READ TO THE END OF THE DATA « / 1H0 > 1160 

1 45HTHE HIGHEST RETRIEVAL NUMBER ON THIS TAPE IS ,I3/1H0 H70 


r ~3 TRYOWITE T R TEV fflTTN PEnroWHE FTTS TT37 1180 

1000 STOP 1190 

END 1200 









